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s Magazin für Anwender von Commodore- und Schneider-Computern 
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Der 6-54 


Endlich ist es soweit! 


Ab sofort auch alle C-16/116 mit Checksummen. Bei richtiger 
Eingabe der Programmzeilen sehen Sie immer am Ende der 
Zeile eine Checksumme, die Ihnen über evtl. Fehler der Pro- 
grammzeile Auskunft gibt. Nähere Erläuterungen zur Handha- 
bung und zum Einsatz des Checksummers finden Sie auf S. 17. 


Die Gerüchte wollten nicht verstummen, 
daß Commodore seine 64’er Produktion 
gedrosselt habe, um den Verkauf des PC 
128 anzukurbeln. Tatsächlich war über 





[$] Hobbytronic '86 





Was war auf der diesjährigen 
Hobbytronic in Dortmund zu se- 





Leser- + Meckerecke - 


und haben uns ein wenig umge- 
sehen. 


hen? Wir waren für Sie vor Ort | Zahlreiche Besucher waren auf 
ru 


dem Ausstellungsgelände um 
sich Anregungen im Hobby-Be- 
reich zu holen oder um ganz ein- 
fach zu sehen, mitwelchem Hob- 
by man seine Freizeit sinnvoll 
nutzen kann. Wer seine Freizeit 
mit Computern verbringt, der 
sollte auf Seite 44 weiterlesen. 


Repot - 


SoftwareAbo - 


Ostern so gut wie kein C-64 mehr zu be- 
kommen, weil Commodore seine Lager 
leergeräumt hatte und in den Produktions- 
stätten die Bänder für einen neuen C-64 
umgestellt wurden. Einen neuen C-64 al- 
so, der allerdings in seinen Funktionen 
ganz der alte ist, lediglich in einem neuen 
Gewand. Aus produktionstechnischen 
Gründen wurde allerdings die Platine mo- 
difiziert und modernisiert. Für den Benut- 
zer sollen sich dadurch allerdings keiner- 
lei Veränderungen ergeben. Auch das Ge- 
rücht, es würde ein zusätzliches Betriebs- 
system integriert, erwies sich als falsch. 
Wahr ist, das nachgeladen werden muß 
und dem Benutzer eine GEM-ähnliche Ar- 
beitsstruktur bietet. Genaueres veröffent- 
lichen wir in der nächsten Ausgabe, wenn 
wir ein Testgerät in den Händen gehabt 
haben. 


Software-Service 
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Prog ramme 
Geschicklichkeitsspiel mit Action: 


Die erlebnisreiche Wanderung des „Little Puck“ durch die 
abenteuerlichen Wege und Straßen, Gräben und Höhlen 


Ihe little Puck goes home 





mit dem Commodore 64 


Ladeanweisungen: 

Tippen Sie zuerst das Hexdata-Ladepro- 
gramm ab und speichern Sie dieses. Ge- 
ben Sie danach im Direktmodus 


POKE43,1:POKE44,78:POKEI9968,0:NEW - 


‚ein und starten Sie das Ladeprogramm 
mit RUN. Am Ende jeder Data-Zeile steht 
zum Erkennen von Tippfehlern eine Prüf- 
summe. Evil. Prüfsummenfehler werden 
mit der Zeilennummer ausgegeben. Tra- 
ten keine Fehler auf, wird das erzeugte 
Maschinenprogramm auf den gewünsch- 
'ten Massenspeicher (Geräteadresse in 


Maschinenprogramm kann nun jederzeit 
mit LOAD“PUCK (16400)“,Geräteadresse,l ge- 
laden und mit SYS16400 gestartet werden. 


Spielgeschehen: 

Der Spieler schlüpft in die Rolle des klei- 
nen Puck, der auf dem Bildschirm gut an 
seinen roten Haaren zu erkennen ist. Es 
gilt, diesen kleinen Puck, begleitet von ei- 
ner schönen Melodie, durch Höhlen und 
Gräben nach Hause zu führen. Dabei muß 
er Vögeln, Spinnen, Pilzen u.v.m. auswei- 
chen und darauf achten, daß er beim 
Springen nicht an seinen Kopf stößt. 

Um von einem Bild ins Nächste zu gelan- 


der Ausgangsposition links zum rechten 
Bildschirmrand führen. Haben Sie das ge- 
schafft, ohne eines der drei Leben des 
kleinen Puck zu verlieren, erscheinen 
noch weitere 9 Level. Ab dem 10. Bild be- 
ginnt das Spiel von vorn, allerdings mit er- 
höhter Geschwindigkeit. 


Steuerung: 

Zur Steuerung des kleinen Puck benötigen 
Sie einen Joystick in Port 2. Bei Druck auf 
den Feuerknopf erscheint das Titelbild 
und das Spiel kann beginnen. 


Und nun viel Spaß beim 


320 POKE175,77:POKE174,47 


6/86 


Compube mib 


Zeile 300 beachten!) abgesaved. Dieses ! gen, muß der Spieler den kleinen Puck von Abtippen!!! 
10 REM HH HRRIIIAHHIIHIIHII NIC HERE <15> 330 POKE194,51:POKE193,192 <119> 
20 REM * * <117> 340 5Y562954 = REM SAVE-ROUTINE <37 + 
SO REM #* THE LITTLE FUCK GOES HOME # <t110> 550 END <223> 
40 REM * * <137> 200 & x203> 
50 REM RRHRRHRBARRRRSRHSHHRSRIHIIESER HN x55> 450 3 <253> 
60 : h <118> 480 2 x27> 
70 REM <C)19B& BY PATRICK URBAN “208> 1000 DATA 00,14,00,00,65,00,01,55,40,01, 
80 3 <138> D7,40,01,D7,40,01,55,40,05,65, 1087 <B9%r 
I 9 ı <148> 1001 DATA 50,15,56,54,59,55,55,57,FE,D9, 
100 DIMH(75) :FORI=OTDI <149> 67 ‚BF ,D5,55,55,45,55,96,55,15, 2207 “47> 
110 H(48+1) =I:H(&5+1)=I4H1O: NEXT <1711> 1002 DATA 55,594,04,14,10,04,14,10,04,14, 
120 FORI=15808T019759:READAS <1> 10,04,14,10,04,14,10,04,14,10, 409 -<110> 
130 H=ASC(LEFTS(AS,1)) sL=ASC (RIGHTS CAF,1 1005 DATA 04,14,10,79,00,14,00,00,65,00, 
>») <190> 01 ,535,40,01,07,40,01,D7,40,01, 993 <62> 
140 D=H(H} #16+H(L) :5S=S+D:POKEI,D «29> 1004 DATA 55,40,05,65,50,15,56,54,59,55, 
150 A=A+1: IFACZOTHENNEXT:A=-1 <113> 55,57 ,FE,D9,67,BF,05,53,55,65, 2121 <39> 
150 PRINT"ZEILE: "31000+2; z243> 1005 DATA 55,96,55,15,55,54,10,41,04,10, 
170 READV: Z=Z+41: IFV=STHEN19O <49> 41,04,10,41,04,10,41,04,10,41, 931 <1978> 
180 PRINT"PRUEFSUMMENFEHLER SPACE} ! "3999 1005 DATA 04,10,91,04,10,41,04,C07,00,00, 
+Z <84> 00,00,00,00,00,00,00,00,00,00, 375 <126> 
185 STOP x73> 1007 DATA 00,00,00,00,00,00,00,00,00,01, 
190 IFA<OTHEN300 <233> 05,50,05,15,55,19,55,599,399,6A, 583 <122> 
200 S=0:A=0:PRINTINEXT <195> 1008 DATA A9,05,2A,A0,00,2A,A0,00,0A,AQ, 
250 : <32> 00,0A,90,00,02,00,00,02,A0,00, 1242 <50> 
280 ı <B3> 1007 DATA 00,80,00,00,00,00,00,00,00,00, 
300 SYS57812 "PUCKTSPACE? (16400) ",B <108> 00,E8,AR,AA,AA,AA,AN,AA,AA,AA, 1720 x255> 
310 REM  GERAETEADRESSE “ <33> 1010 DATA AA,AA,AA,AA,AN,AR,AR,AR,AA,AA, 
<125% RAR AA AAAA,AA,AA,AA,AN,AA, 3400 <94> 


Programme 


1018 DATA AA,AA,AA,AA,AA,AR,AA,AA,AA,AD, 
AA ,AA,AA,AR,AA,AR,AA,AR,AR,AA, 3400 

1012 DATA AN ,AA,AA,AA,AA,AA,AA,AA,AA,AA, 
AA AAHAA,AA,AR,CB,00,36,00,00, 2813 

1013 DATA EF,00,00,FF,00,03,FB,C0,03,FF, 
C0,OF,BB,FO,OF ,FF,BO,3E,FB,FC, 2843 

1014 DATA 3F,FF,BF,FF,EF,FF,EF,BF,FB,FF, 
FE,FF ,SE,EF,FÜ,03,FF,C0,00,AA, 3876 

1015 DATA 00,00,AA,00,00,AA,00,00,AA,00, 
00,AA,00,02,AA,B0,0A,AA,AO,CB, 1523 

1016 DATA 00,3F,00,03,FF,CO,0F,FF,FO,OE, 
AB,FC,02,6B,FC,02,AA,BC,OA,AA, 2361 

1017 DATA BC,OA,AB,FC,02,AB,FC,00,AB,FO, 
00,2B,C0,00,2B,00,00,AA,00,02, 1907 

1018 DATA AA,80,08,AA,20,20,AA,08,00,55, 
00,00,FF,00,00,C3,00,00,65,00, 1450 

1059 DATA 01,40,00,20,00,3F,00,03,FF,CO, 
OF ,FF,FO,OE,AB,FC,02,6B,FC,02, 1920 

1020 DATA AA,BE,OA,AA,BC,OA,AB,FC,O2,AB, 
FC,00,AB,F0,00,2B,C0,00,2B,00, 2273 

1021 DATA 00,4A,00,02,AA,80,098,AA,20,20, 
AA,OB,00,55,00,00,FF,00,00,C3, 1425 
1022 DATA 00,01 ,43,00,00,05,00,AF,00,FC, 
00,03,FF,C0,0F,FF,FO,3F,EA,BO, 1935 

1023 DATA 3F ,E9,80,3E,AA,80,3E,AA,A0,SF, 
EA,AO,SF,EA,80,0F,EA,00,05,E8, 2542 

1024 DATA 00,00,E8,00,00,AA,00,02,AA,80, 
08,AA,20,20,AA,08,00,55,00,00, 1207 

1025 DATA FF,00,00,C03,00,00,53,00,00,01, 
40,91 ,00,FR,00,03,FF,CO,0F,FF, 1715 

1026 DATA FO,3F,EA,BO,3F,E9I,80,3E,AA,50, 
SE ,AR,AO,SF,EA,AO,SF,EA,80,0F, 2786 

1027 DATA EA,00,03,E8,00,00,E9,00,00,AA, 
00,02,AA,80,08,AA,29,20,AA,08, 1591 

1028 DATA 00,55,00,00,FF,00,00,03,00,00, 
C1,40,00,50,00,84,CB,FF,00,00, 1462 
1029 DATA FF,FF,00,00,FF,FF,00,00,FF,FF, 
00,00,78,49,4E,80,14,03,R9,40, 2294 
1030 DATA 8D,15,03,47,54,90,02,04,8D,03, 
D4,49,09,80,05,D4,47,00,8D,06, 1997 

1031 DATA D4,A9,OF ,80,19,D4,A9,A7,85,FE, 
N? ,01,85,02,99,40,85,FF,A7,07, 2500 
1032 DATA 8D,3C,41,58,40,3D,41,E6,FE,D%, 
02,E6,FF,60,06,02,F0,03,4C,31, 2399 

1033 DATA EA,A9,40,80,04,D4,A2,00,Ai,FE, 
8D,00,D4,20,47,40,Ai,FE,8D,01, 2478 

1034 DATA D4,20,47,40,Al,FE,C9,07,F0,11, 
£9,09,F0,21,85,02,20,47,40,49, 2213 

1035 DATA 41,890,04,D4,4C,31 ,EA,A9,FF,85, 
02,49,47,95,.FE,A9,40,85,FF,A9, 2853 

1056 DATA 09,80,30,41,4C,31,EA,A2,EB,86, 
FE,AZ2,40,86,FF,A2,07,8E,3C,41, 2470 

i037 DATA 4C,76,40,12,27,0F,27,34,1E,B5, 
41,0F,12,27,0F,27,34,1E,B5,41, 1151 

1039 DATA 0F,27,34,0F,8A,5A,1E,8A,3A,17, 
BA,3A,08,8A,3A,2D,B5,41,0F,9D, 1429 
1039 DATA 45,1E,90,45,0F,90,45,0F,24,4E, 
OF ,7D,45,0F ,B5,41,0F,94,3A,0F, 1423 
1040 DATA B5,41,1E,27,34,16,27,34,08,27, 
34 ,2D,27,34,0F,7D,45,16,9D,45, 1204 

1041 DATA 08,90,45,0F,9D,45,0F ,Bäa,57,1£, 
9D,45,0F,9D,45,0F,B5,41,16,B5, 1720 

1042 DATA 41,08,27,34,0F,B5,41,0F ,24,4E, 
1E,B5,41,0F,27,34,0F,12,27,1E, 1038 
1043 DATA 3A,31,0F,8A,3A,0F,70,45,1E,89, 
SA,OF3,3A,31,0F,27,34,16,27,34, 1126 

1044 DATA: 09,27,34,16,27,34,08,27,54,2D, 
00,00,07,99,05,80,20,D0,49,0D, 1100 
1045 DATA 8D,21,D0,A2,00,8E,1E,DO,dE,IF, 
DO,8E,15,D0,4C,E1,41,92,1F,95, 2366 
1046 DATA 11,11,11,11,1D,1D,1D,1D,1D,1D, 
1D,1D,1D,1D,1D,1D,1D,1D,1D,54, 597 

1047 DATA 48,45,20,4C0,49,54,54,4C,45,0D, 
1C,11,11,11,11,1D,1D,1D,1D,1iD, 889 
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1049 DATA 1D,1D,3E,20,20,3E,20,20,3E,20, 
20,50,20,55,20,43,20,4B,20,20, 903 

1049 DATA 3C,20,20,30,20,20,3C0,0D,iF,11, 
11,11,11,1D,1D,1D,1D,1D,1D,1D, 623 

1059 DATA 1D,1D,1D,1D,1D,1D,1D,1D0,47,4F, 
45,53,20,48,4F,4D,45,0D,90,i1, 1037 

1051 DATA 11,11,11,11,11,1D,1D,1D,1D,1D, 
1D,1D,1D,28,43,27,31,39,38,36, &B1 


‚1052 DATA 20,42,59,20,50,41,54,52,49,43, 


48,20,55,52,42,41,4E,BD,55,41, 1492 
1055 DATA 20,D2,FF,E8,E0,8C,D0,F5,A9,00, 
80,13,D4,49,F0,8D,14,D4,A9,0A, 3048 
1054 DATA 95,FB,85,FD,A9,05,85,44,49,B3, 
85,45,A9,00,85,FC,A9,10,8D0,12, 2785 
1055 DATA D4,AD,1E,DO,AD,1IF,DO,A9,00,8D, 
1E,DO,B8D,1F,DO,AD,00,DE,C9,70, 2569 
105& DATA BO,F9,4C,F3,45,AD,10,D0,29,01, 
FO,OF,AD,00,D0,67,2C,70,14,99, 2466 
1057 DATA 2B,8D,00,D0,4C0,47,42,AD,00,DO, 
C9,14,B0,05,A9,15,8D,00,D0,AS, 2092 
1058 DATA FC,C9,01,D00,03,40,46,43,09,04, 
D0,03,4C0,51,43,C9,02,D0,03,4C, 2024 
1059 DATA 82,43,C9,05,D0,03,4C,AF,43,C9, 
03,D0,03,4C,DD,43,C9,06,D00,03, 2127 
1050 DATA 4C,08,44,AD,00,DC,C9,71,B0,08, 
A2,11,8E,12,D4,40,07,43,C09,78, 2065 - 
£061 DATA B0,03,4C,BE,42,C9,7C,B0,03,4C, 
91,42,60,AD,00,D0,D0,08,AD,10, 2184 
1062 DATA DO,49,01,8D,10,D0,CE,00,D0,06, 
FB,AS,FB,DO,0D,A9,0A,85,FB,A9, 2879 
1063 DATA FD,SD,F8,07,20,ED,42,60,09,05, 
D0,05,A9,FC,8D,F8,07,60,A0,00, 25895 
1064 DATA DO,C?,FF,DO,08,AD,10,D00,49,01, 
8D,10,00,EE,00,D0,C5,FB,AS,FB, 3027 
1045 DATA DO,0D,AF,0A,85,FB,A9,FF,8D,F8, 
07,20,ED,42,60,C09,05,D0,05,A9, 7623 
1065 DATA FE,8D,F8,07,60,49,32,8D,09,D4, 
89,00,8D,0D,D4,A9,01,8D,0C,D4, 239& 
1057 DATA A97,80,8D,0B,D4,A9,81,80,0B,D4, 
60,AE,01,D0,86,FD,C9,68,B0,0C, 2682 
1059 DATA AI,FF,SD,F8,07,49,02,85,FC,4C, 
92,43,C09,6C,B0,00,A9,FD,BD,F8, 2957 
10549 DATA 07,A9,03,95,FC,40,DD,43,49,01, 
85,FC,AD,01,D0,49,FF,8D,0F,D4, 2561 
1070 DATA A9,10,80,12,D4,49,11,90,12,D4, 
CE,01,D0,60,CE,01,D0,AD,01,DO, 2421 
1071 DATA 49,FF,8D,0F,D4,38,A5,FD,EF,1E, 
18,CD,01,D0,D0,04,A9,04,85,FC, 2641 
1072 DATA &0,EE,01,D0,AD,01,D0,49,FF,8D, 
OF ,D4,AS,FD,CD,01,D0,A5,FD,CD, 307& 
1073 DATA 01,D0,D0,09,49,00,85,FC,A9,10, 
8D,12,D4,60,CE,01,D0,AD,00,DO, 2428 
1074 DATA C9,FF,DO,08,AD,10,D0,49,01,BD, 
10,D0,EE,00,D0,AD,01,D0,49,FF, 2664 
1075 DATA 8D,OF,D4,A5,FD,39,E9,1E,18,CD, 
01,D0,D0,04,49,05,85,FC,50,EE, 2648 
1075 DATA 01,D0,AD,00,D0,C9,FF,DO,09,AD, 
10,D0,49,01,8D,10,DO,EE,00,DO, 2544 
1077 DATA AD,01,00,49,FF,8D,0F,D4,AS,FD, 
CD,01,D0,D0,09,A7,00,85,FC,A?, 2850 
1978 DATA 10,80,12,D4,60,CE,01,DO,AD,0i, 
00,49,FF,8D,0F,D4,AD,00,D0,DO, 2565 
1077 DATA 08,AD,10,D0,49,01,8D0,10,D0,CE, 
00,00,A5,FD,38,E9,1E,18,CD,01, 2225 
1080 DATA DO,DO0,04,49,06,85,FC,60,EE,01, 
00,AD,00,D0,D0,08,AD,10,D0,49, 2590 
1081 DATA 01,8D,10,D0,AD,01,D0,49,FF,8D, 
OF ,‚D4 ,CE,00,D0,AS,FD,CD,01,D0, 2690 
1032 DATA DO,09,A9,00,85,FC,A9,10,8D,12, 
D4,60,13,12,20,24,20,54,48,45, 1791 
1093 DATA 20,40,49,59,54,40,45,20,50,53, 
43,4B,20,24,20,20,40,49,56,45, 1275 
1023 DATA 53,20,20,20,20,40,45,56,45,46, 
20,20,20,20,49,73,20,D2,FF,A9, 1697 


Compute mi 











1095 DATA 1E,20,D2,FF,A2,00,86,A6,AF,11, 
20,D2,FF ‚AG,AG,E6,A&,E0,0F,DO, 2847 
1084 DATA F3,A2,00,868,06,09,12,20,D2,FF, 
AP ,A6220,D2,FF Ab ,Ab,E6,Ab,E0, 3173 
1087 DATA FF ,DO,F3,A9,00,85,45,A9 ,A6,20, 
D2,FF ‚A&,Ab,E6,A&,E0,BE,DO,FS, 3551 
1088 DATA A2,00,86,46,B0,34,44,20,D2,FF, 
E6,46,A6,A6,E0,2A,D0,F2,A2,00, 2874 
1089 DATA 86,46,A9,45,20,02,FF,E6,Ab,Ab, 
A6,E0,28,D0,F3,45,A5,8D, 10,04, 3078 
1090 DATA 49 ,E6,890,E7,07,A7,05,8D,E7,DB, 
A9,00,890,10,00,85,FC,A9,15,8D, 2793 
1091 DATA 00,00,A7,FF,8D,F8,07,A9,80,8D, 
01,D0,AY,01,80,15,D0,80,17,DO, 2597 
1092 DATA 80,1C,D0,80,1D,D0,8D,18,00,A7, 
00,80,25,D0,8D,1F,D0,49,02,BD, 2378 
1093 DATA 26,D0,A9,08,90,27,D0,A9,10,8D, 
12,D4,640,49,10,80,12,D4,A9,11, 2205 
1094 DATA @D,12,D04,20,3F,45,20,3F,45,EE, 
01,D0,AD,01,D0,49,FF,8D,OF,D4, 2224 


1095 DATA AD,01,00,C9,AA,DO,E8,C6,A5,49, 


10,80,12,D4,A9,00,85,F0,60,N4, 2926 
1096 DATA A4,A2,FF,CA,DO,FD,B8,DO,F8,60, 
20,5E,44,AD,1E,D0,A9,B3,8D,25, 3064 

1097 DATA 04,A9,FB,8D,FA,07,49,95,8D,05, 
D0,A9,5B,80,04,D0,A9,05,80,15, 2443 

1098 DATA 00,8D,1C,D0,A9,01,80,29,D0,A7, 
00,85,A6,8D,1E,DO,4C,9E,45,A5, 2460 

1099 DATA A&,D0,0F,EE,04,D0,AD,04,00,09, 
FF,DO,14,49,01,85,46,60,CE,04, 2683 

1100 DATA DO,AD,04,D0,09,5A,00,05,49,00, 
85,A6,40,60,49,00,80,1E,D0,20, 2337 

1101 DATA 25,42,20,7B,45,20,3F,45,AD,1E, 
D0,29,01,F0,25,20,11,45,A5,A5, 1669 

1102 DATA C9,B0,00,0E,AD,1E,DO,A7,00,0D, 
15,D0,8D,1E,D0,4C,3D,41 ,ADb,1E, 2333 

1103 DATA DO,A7,00,8D,15,D0,8D,1E,BO,4C, 
4N,45,20,72,45,20,3F,45,AD,10, 1922 

1104 DATA DO,FO,0A,AD,00,00,09,28,D0,03, 
4C,3F ,47,20,3F,45,4C,9E,45,20, 2003 

1105 DATA SE,44,49,B1,80,24,04,49,07,BD, 
15,D0,8D,17,D0,80,1C,D0,A9,A9, 2324 

1106 DATA 8D,03,D0,80,05,D0,A9,0D,8D,28, 
D0,80,29,D0,A9,64,8D,02,D0,A9, 2455 

1107 DATA E&,8D,04,D0,A9,00,8D,1E,DO,8D, 
1E,D0,A?,FA,8D,F9,07,8D,FA,07, 2724 

1108 DATA A9,00,8D,1E,D0,20,25,42,20,3F, 
45,20,3F,45,20,3F,45,AD,1E,DO, 1586 

1109 DATA 29,01,F0,27,20,11,45,A5,45,C09, 
B0,D0,0E,AD,1E,D0,A3,00,BD,15, 2110 
1110 DATA DO,8D,1E,DO,4C,E1,414AD,1E,DO, 
A9,00,80,15,00,A9,00,2D,1E,DO, 2451 

1111 DATA 4C,F3,45,AD,10,00,C9,01,D0,0A, 
AD,00,D0,C9,25,D0,03,46,83,46, 2318 

1112 DATA 4C,30,46,20,5E,44,A9,B2,8D,26, 
04,49,03,8D0,15,D0,8D,1C,D0,A7, 2006 

1113 DATA 09,8D,28,00,49,F9,8D,F9,07,AD, 
1E,D0,A9,00,80,1E,D0,A9,FF,8D, 2737 

1114 DATA 02,D0,A9,54,8D,03,00,A9,00,85, 
A7,4C,F0,46,AD,02,D0,D0,10,AD, 2456 

1115 DATA 10,D0,49,02,80,10,D0,AD,1E,DO, 
A9,00,8D,1E,DO,CE,02,D0,A5,47, 2371 

1116 DATA DO,OF,CE,03,D0,AD,03,D0,C9,50, 
D0,13,49,01,85,A7,60,EE,03,DO, 2547 

1117 DATA AD,03,00,09,82,D0,04,A9,00,85, 
A7,60,20,25,42,47,00,8D,1E,DO, 2175 

1118 DATA 20,B6,458,20,3F,45,20,B6,46,20, 
SF ,45,20,B6,46,20,3F,45,AD,1E, 1547 
1119 DATA D0,29,01,F0,1A,20,11,45,AD,1E, 
D0,A9,00,8D,1E,D0,90,15,D0,A5, 2128 

1120 DATA A5,C9,B0,00,03,4C,E1,41,4C0,83, 
46,AD,10,D0,29,01,F0,0A,AD,00, 2258 

1121 DATA D0,C9,28,D00,03,40,44,45,4C0,F0, 
46,20,5E,44,A7,0F,8D,15,D0,8D, 2157 
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<226> 
<73> 
<193> 
<41> 
<146> 
<33> 
<21> 
<150> 
<8> 
<36> 
<209> 
<127> 
«232> 
<17> 
<44> 
<93> 
«2> 
<119> 
<B5> 
x97> 
<250> 
<220> 
261> 
<23> 


x204> 
<100> 
<347 
<&a2> 
<18> 
s78> 
<7> 


<132> 


<128> 
<111> 
x192> 


<37> 


programme 


1122 DATA 16,00,A9,0D,8D,17,D0,8D,29,00, 


8D,2N,D0,A9,84,8D0,26,04,A9,09, 2281 


1123 DATA 8D,28,00,A9,F9,8D0,F9,07,A9,FA, 
8D,FA,07,80,FB,07,A9,5A,80,03, 2823 
1124 DATA DO,AF,FF,8D,02,D0,A9,64,8D,04, 
00,A9,E6,8D0,06,D0,49,A9,8D,05, 2843 
1125 DATA D0,8D0,07,D0,AD, 1E,D0,A9,00,8D, 
1E,D0,A9,00,80,1E,D0,20,25,42, 220% 
1126 DATA 20,26,46,20,3F,45,20,B6,46,20, 
3F,45,20,B6,46,20,3F,45,AD,1E, 1547 
1127 DATA DO,29,01,F0,1A,20,11,45,AD,1E, 
D0,A7,00,8D,1E,00,8D,15,D0,A5, 2128 
1128 DATA A5,C9,B0,00,03,40,30,41,40,3F, 
47 ,AD,10,00,29,01,F0,0N,AD,00, 2027 


1129 DATA D0,C9,2B,D0,03,4C,DF,47,4C,90, 


47,20,5E,44,20,E9,47,40,A0,48, 2161 
1130 DATA A2,00,86,46,A9,11,20,D2,FF,E&, 
AB,A6,A&,EO,0D0,D0,F3,A9,90,20, 2906 

1131 DATA D2,FF,A9,12,20,D2,FF,A2,00,86, 
66,097,20,20,D2,FF,E65,A6,Ab,Ab, 3037 
1132 DATA E0,28,00,F3,A9,13,20,D2,FF,A9, 
11,20,D2,FF,A9,11,20,D2,FF,A9, 2935 
1133 DATA. 12,20,D2,FF,A2,00,86,A6,A9,20, 
20 ,D2,FF ‚,E6,A6,A6,A6,E0,A0,D0, 2995 

1154 DATA F3,60,AD,06,00,D0,10,AD,10,D0, 
47,08,8D,10,D0,AD,1E,D0,A9,00, 2373 
1135 DATA 8D,1E,DO,CE,06,00,A5,AB,DO,0n, 
A9,F7,8D,FB,07,49,01,85,A8,40, 2732 
1155 DATA A9,F8,8D,FB,07,09,00,85,A8,60, 
#D,08,D0,D0,10,AD,10,00,49,10, 24Bi 
1137 DATA 90,10,DO,AD,1E,D0,A9,00,8D,1E, 
DO,CE,09,00,45,A9,D0,0A,49,F7, 2714 

1138 DATA 8D,FC,07,A9,01,85,49,60,A9,F8, 
80,FC,07,49,00,95,49,60,20,3A, 2442 
1137 DATA 48,40,64,48,49,00,85,AB,85,A9, 
A9,95,80,07,D00,80,09,00,49,32, 2347 
1140 DATA @D,08,00,A9,AA,8D,C8,D0,A7,B5, 
50,26,04,49,07,8D,2A,00,80,2B, 2335 

1141 DATA DO,AF,F7,8D,FB,07,8D,FC,07,49, 
08,8D,10,D0,#7,19,8D,15,D0,3D, 2670 

1142 DATA 1C,00,A9,00,8D,1E,D0,A9,00,8D, 
1E,0D0,20,25,472,20,74,48,20,3F, 1820 

1143 DATA 45,20,99,48,20,3F,45,20,3F ,45, 
AD,1E,D0,27,01,F0,1A,20,11,35, 1492 

1144 DATA AD,1E,D0,A9,00,8D,1E,00,9D,15, 
D0,45,R5,69,B0,D0,03,40,3D,41, 2449 

1145 DATA 4C,DF,47,AD,10,D0,29,01,F0,0A, 
AD,00,00,07,28,00,03,40,67,49, 2147 

1146 DATA 4C,DF,48,92,20,DF,A9,20,20,20, 
20,DF,A9,20,20,20,20,DF,A9.20, 2013 
1147 DATA 20,20,20,DF,A9,20,20,20,20,DF, 
A9,20,20,20,20,DF,A9,20,20,20, 1424 
1148 DATA 20,DF,A9,20,42,00,864,A4,BD,2B, 
49 ,20,D2,FF,E6,A6,A6,Ab,E0,29, 2713 

1149 DATA DO,F2,60,20,5E,44,20,E9,47,49, 
B6,8D,26,04,20,59,49,49,95,8D, 2257 
1150 DATA 07,00,A9,FF,9D,06,D0,A9,F7,0D, 
FB,07,99,09,80,15,D0,8D,1C,DO, 2734 

1151 DATA A9,07,9D0,2A,D0,AD,1F,DO,AD,IE, 
D0,97,00,8D,1E,D0,BD,1F,D0,A9, 2487 

1152 DATA 00,8D,1E,D0,9D,1F,D0,20,25,42, 
20,30,48,20,3F ,45,20,30,48,20, 1414 
1155 DATA 3F,45,20,34,49,20,3F,45,AD, IE, 
D0,29,01,F0,14,20,11,45,AD,1E, 1498 
1154 DATA 00,A9,00,80,1E,D0,9D,15,D0,AS, 
AS,C9,B0,D0,03,40,30,41,40,67, 2425 
1155 DATA 49 ,AD,1F,00,29,01,F0,20,20,11, 
45,AD,1F,DO,AD,1E,D0,A9,00,8D, 2050 
1156 DATA 1E,D0,8D,1F,D0,8D,15,DO,AS,AS, 
C97,B0,00,03,40,30,41 ,40,47,49, 2360 
1157 DATA AD, 10,00,29,01,F0,0A,AD,00,D0, 
C9,2B,D0,03,40,18,4A,40,9F,49, 2007 

1158 DATA 20,5E,44,20,E8,47,99,B7,8D,26, 
04,49,0B,80,15,D00,8D0,10,D0,A9, 2160 


Compube mib 


<210> 
“56> 
<141> 
<1B3> 
21363 
<119> 
<5B> 
<74> 
<206> 
<25> 
<134> 
<143> 
<96> 
<11> 
<S5B> 
x20> 
<108> 
<121> 
<167> 
<83> 
<180> 
<26> 
x52> 
<219> 
<105> 
<207> 
<44> 
<39> 
«153> 
<14A: 
<244> 
<202> 
<38> 
<148> 
“222> 
<171> 


x242> 


Programme 


1159 DATA F9,80,F9,07,A9,F7,8D,FB,07,A7, 


09,8D,28,D0,A9,07,8D,2A,D0,49, 2764 <119> D0,A9,A5,80,04,D0,A9,FF,8D,0A, 2571 <122> | 
1160 DATA 00,95,95,95,A7,85,A8,49,B4,0D, 1180 DATA 10,A9,10,80,10,D0,A9,00,8D,1E, 
02,D0,AF,FF,5D,06,D0,49,95,8D, 2838 <200> D0,035,46,85,A7,85,A8,85,A9,4C, 2584 <201> 
1151 DATA 07 ,D00,A9,5A,80,03,D0,A9,00,8D, 1191 DATA 44,4C0,13,11,11,11,11,11,11,i1, 
1E,D0,A7,00,80,1E,D0,20,25,42, 2057 <125> 11,90,9D,12,96,20,20,11,9D,9D, 1176 <188> 
1162 DATA 20,3A,48,20,B6,46,20,3F,45,20, 1132 DATA 20,20,11,90,9D,20,20,11,9D,9D, 
BA,45,20,34,49,20,3F ,45,20,B&h, 1434 <211> 20,20,11,70,9D,20,20,11,9D,9D, 1580 <102> 
1143 DATA 45,20,3F,45,AD,1E,D0,29,01,F0, 1183 DATA 20,20,11,90,9D0,20,20,11,9D,9D, 
1A,20,11,45,A9,00,8D0,15,D0,8D, 1751 <50> 20,20,13,1C,11,11,11,11,7D,20, 1158 <141> 
1154 DATA 1E,DO,AD, 1E,D0,A5,95,09,BO,DO, 1184 DATA 11,9D0,9D,20,20,11,9D,90,9D,20, 
03,40,3D,41 ,4C,18,4A,AD,10,D0, 2340 <90> 20,20,11,7D,70,90,9D,20,20,20, 1720 <201> 
1155 DATA 29,01,F0,0A,AD,00,D0,C9,2B,DO, 1185 DATA 20,90,9D,11,11,1F,20,11,7D,20, 
03,4C,B5,4A,40,60,4A,20,5E,44, 1897 <176> 11,90,20,11,70,20,20,25,42,20, 1228 <78> 
1166 BATA A9,BA,00,25,04,A9,0F,8D,15,D0, 11854 DATA 94,49,20,3F,45,20,9A,48,20,3F, 
8D,1C,00,A9,F9,BD,F9,07,A9,FB, 2702 2190> 45,20,3F,45,AD,1E,D0,29,01,F0, 16697 <252> 
1167 DATA 8D,FA,07,A7,FA,8D,FB,07,A9,5#ß, 1197 DATA 1A,20,11,45,A9,00,8D,15,D0,8D, 
8D,03,00,A9,FF,30,02,D0,8D,04, 2747 <96> 1E,DO,AD,1E,D9,A5,45,67,80,00, 23588 <122> 
1158 DATA DO,AI,95,80,05,D0,A9,A9,80,07, 1189 DATA 03,4C,3D,41,4C,60,4B,AD,10,D0, 
DO,A9,14,80,05,00,49,08,8D,10, 2452 £197> 29 ,01,F0,0A,AD,00,D0,C7,2B,DO, 1986 <7> 
11589 DATA DO,A?,09,80,28,D0,A7,01,80,29, 1189 DATA 03,4C0,98,40,40,44,40,20,5E,44, 
DO,AY,00,80,2A,D0,49,00,8D,1E, 2248 x175> A? ,B0,8D,264,04,49,B1,80,25,04, 1764 <115> 
1170 DATA DO,95,A6 ,85,A7,85,48,85,A9,A?, 1190 DATA A2,00,86,A6,BD,E6,4B,20,D2,FF, 
01,95,46,49,09,80,17,00,A?,00, 2598 «142> E&,A6,A6,A6,E0,32,D0,F2,A2,00, 3067 <51> 
1171 DATA 8D,1E,D0,20,25,42,20,B6,46,20, 1171 DATA 84,A64,BD,18,46,20,D2,FF,E6,A6, 
7B,45,20,3F ,45,20,BA,46,20,3F, 1565 x249> A&,A&,E0,2C,D0,F2,A97,05,8D,15, 2868 <A3> 
1172 DATA 45,20,B6,46,20,3F,45,AD,1E,DO, 1192 DATA DO,8D0,1C,D0,A9,FF,8D,04,D0,A9, 
29,01,F0,1A,20,11,45,A9,00,8D, 1664 «792 95,8D,05,D0,A9,FB,8D,FA,07,A9, 3021 <204> 
1173 DATA 15,D0,8D,1E,DO,AR,1E,DO,AS,AS, 1193 DATA 01,80,29,D0,85,A5,49,00,8D,1E, 
C9,B0,D0,03,4C,3D,41,4C,B5,4A, 2370 <A1> DO,A9,00,8D,1E,D0,20,25,42,20, 1953 <12> 
1174 DATA AD,10,D0,29,01,F0,0A,AD,00,DO, 1194 DATA 78,45,20,3F,45,20,7B,45,20,3F, 
C9,2B,D0,03,4C,6C,4B,4C,1A,4B, 1961 <28r 45,20,3F ,45,AD,1E,D0,29,01,F0, 1601 <14> 
1175 DATA 20,5E,44,A9,B9,9D,26,04,A9,3F, 1195 DATA 1A,20,11,45,49,00,80,15,D0,8D, 
8D,15,D0,8D,1C,D0,A9,27,80,17, 2082 <65> 1E,DO,AD,1E,DO0,AS5,A5,C9,B0,Dü, 2388 <130> 
117& DATA DO,A9,F8,8D,FB,07,8D,FC,07,A9, “ 1194 DATA 03,40,5D,41,46,9B,4C,AD,10,DO, 
FA,8D,F9,07,8D,FA,07,8D0,FD,07, 305% x24> 29,01,F0,0E,AD,00,00,07,28,D0, 2022 <95> 
1177 DATA A9,07,8D,2A,DO,80,2B,D0,A9,0D, 1197 DATA 07,C5,R4,C06,A4,40,F3,45,4C0,DF, 
8D,28,00,80,29,D0,80,2C,D0,A?, 2482 <36> Aac,FF, 1749 <30> 
1178 DATA 95,80,07,D0,8D,09,D0,A9,FF,8D, 

06,D0,8D0,09,00,A49,49,90,03,D0, 2589 <1&0> 





Für EDDY lohnt es wirklich, sich die Finger 





1179 DATA 8D,05,D0,80,08,D0,A9,4B,8D,02, 


Superspaß mit EDDY für alle C-6% Freaks 


Durch die zufällige Verteilung der Toten- 





wund zu schreiben. Das Programm erin-J@H bin köpfe entstehen immer wieder neue, 


nert etwas an die Minerspiele, muß aber 
den Vergleich mit anderen Spielen, die in 
Basic geschrieben sind, nicht scheuen. 


Nach dem Starten werden zunächst der 
Zeichensatz kopiert und die Sprites einge- 
lesen. Wenn dann das Titelbild erscheint, 
kann man mit.der Fi-Taste den Level (1-10) 
einstellen. Mit der Feuertaste wird noch 
der Joystickport bestimmt und das Spiel 
beginnt. 


EDDY muß nun in den verschiedenen Ebe- 
nen die zwölf Geldsäcke einsammeln, oh- 
ne die vorgegebene Zeit zu überschreiten. 
In den höheren Levels muß EDDY über To- 
tenköpfe und Löcher springen, um an die 
Geldsäcke heranzukommen. 


Sompute mib 













knifflige Spielsituationen, die das ganze 
Geschick des Spielers erfordern. 


Ist das Spielfeld abgeräumt, so wird der 
Rest der Zeit in Punkte gutgeschrieben. 
Hat er seine drei Leben verloren, ist das 
Spiel beendet. 


Übrigens kann man mit der RUN/STOP Ta- 
ste das Spiel unterbrechen und wieder 
fortsetzen. 


Noch ein Tip: EDDY sollte so oft wie mög- 
lich springen. Er wird dadurch erheblich 
schneller. 
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O REM »#*+« EDDY == RY J.RESE ### 
1 5=54272: V=-53248: 607020 
2 POKES+4 ,0:POKES+24 ,15: POKES+S5, 2: POKES+ 
6,03 POKES+1 „30: POKES, 1: POKES+4 , 129: RETUR 
N 
3 POKES+4 ‚0: POKES+24 , 153 PIOKES+5 „2: POKES+ 
6,0 POKES+1 „50: POKES, 1: POKEB+4 , 1293 RETUR 
N 
20 POKE78B, 52: IFPEEK (2) =255THENGO 
30 POKES32B0 ,5: PIKES3201 ,&3PRINT" {CLEAR 
DOHNIO WHITE" „"ISPACEI>PLEASETSPACEIWAI 
T Li3 
40 FORP=9T07:FORT=0T0825 READAL:POKE (248+ 
P)#644+T ,ALSNEXTT,P 
75 SOSUBIOOO 
80 POKES3272, (PEEK 153272) AND240) OR12 
90 SS="{HOHE BVYSOFF DOWN1I RIGHT32 LIG.G 
REENJ“ 
F1 He=" HOME RUSDEF DOUN& RIGHT32 LIG.BL 
VEI":GOTOSOHO 
95 FORT=0T024 : POIKES+T „Or: NEXT:POKES+24,,15 
sı POKES+5,9: POKES+6,, 100: POKES, 13 POKES+4,3 
3 
96 FORT=0T02; FÜRE=-ZOTOBOSTEP2: Se „Eı 
NEXT: NEXT: FOKES+6,028C=0 
100 FOKEV+1&,O:POKEV+21 „OÖ: LO=0:L1=01E1=0 
:R=Ris IFRi >IOTHENR=SRI-10 
110 ONRGÜSUBRSOO,G10 ,920,830,840,89850,RB&0, 
870,890,890,900 
111 IFRI>1OTHENF=01 IFR1 >2OTHENSO0O0 
120 Age" {RVYSONF"SFORT=-OTOI4SASSASHCHRFLZ 
1) +CHRF(Z2) NEXT 
150 POKEV+33 ,OrPOKEV+32, 0: PRINT" TCLEARY" 
1 TABLSO)FYIRVSGN HEREYIESE", 
140 FÜRT=0TU11:PRINT"LDZHH LEETZYZRCDONN 
LEFT2IRE" 3 INEXT 
150 PRINT" CHOHE RVSGFEFY"LTAB(IS) 3 "TDOUNE 
LIG.BLUE}IHIGH: DOWN} "Ss PRINTTAB{32) 5HI 

150 PRINTTAB{33) 5 "IDOHNZ2 LIG.-GREENISLORE 
s {DOWN} "APRINTTAB (327350 | 
170 FRINTTAB (33) 5 "IDOHN2 LIS.REDILEVELS € 
DOHNF>"z:PRINTTABIFSSI aRI 

. 180 PRINTTAB(33) 5 *CDOHN2 HHITEITIME: {DOM 
N3"3PRINTTAB{Z3) 5 "{AVSON LIG.RED SPACE X 
ELLON SPACE2 GREEN SPACE3 RVSOEF>" 
185 FORT=OTOVIsPORE10F7+T#2 „AZLFÜKEB+109 
7+T#2,7:NEXT 
190 PRINT" CHONE}"4 =POKEA46, Fa FORT=0TOSIP 
RINTAS; "{DOHN33":NEXTIPRINTAS; 
200 FORT=OT010: IFX (T}=0THENZSO 
210 E=0: FORP=OTÜD(T) 
220 PÜKEX(TFI+E, 107: FOKEK {TI+E+S, 7: POKEX { 
TI+E+1 „115: POKEX (TI +E+5 +1,71 ESE+401 NEXT 
230 NEXT 
250 IFLO=1THENGOSUB400 
260 FORT=0T010: IFL (TJ=OTHEN3OO 
270 FORE=0T02:POKEL{T) +E,32:3NEXTINEXT 
3500 FORT=1144T019449TEP140ı FORE=ITO2 
510 P=INT {RND{1)#29) +T3 IFPEEK {P}< >320RPE 
EK(P+40)=32THENZ10 
320 POKEP „Os POKEP+S , 103 NEXT: NEKT 
330 FORT=1144TD01944STEFP160: FORE=1TOE1s IF 
Ei=0THENS0O 
340 P=INT {RND (1) #29) +Tz IFPEEK (P) <>320RPE 
EK(P+40) #F2THENS4O 
350 POKEP „74: POKEP+S,1: NEXT: NEXT: GOTOS00 
400 FORT=1184T018248TEP160:FORE=1 TOLL 
410 P=INT (RND (1) #271 +T:PO=PEEK (P} :Pi=PEE 
KiP+1) »P2=PEEK :P+2) 
420 IFPO=1070RP1=1070RP2=1970RPO=1 1soRrPpı 
=1150RP2=115STHEN410 
430 POKEP „323 POKEP+1 ‚323 POKEF+2 , 32: NEXT 
NEXT: RETURN 
500 FORT=0T010:X<F}=0:L(T)=QrD{T)=03NEXT 
:POKE2040 ‚252: POKEV+1 „2212 POKEV, 132 
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%229> 
<ı181> 


<92> 


<195> 
x170> 
<Ba2> 
<g6> 
<138> 
<207> 
<38> 


<179> 


«757 
<109> 
x22> 


<179> 
<293> 


x26> 
<151> 
:67> 
<72> 
«272 
<247> 


<124> 
<212> 
<214> 
*233> 
<225> 
«186> 
<104> 
*95> 

<101> 
<204> 
<1351> 


<180> 
<122> 


<140> 
<aß> 
«22> 
2057 
<95> 
<997> 
<186> 


1445 


programme 


520 POKEV+28, 13 POKEV+21 ,1rX=1327 Va221ıl= 
1958: 21=2521B=20401 F12107 «4 FZ=115 
0 MOIe3ZIMHI=IOL1:MDIeL 165MCZI=117:M 
(4) =97:M (5) =246: HM 6)=234.M (I =231 
560 ME) =160: M=1902ı M1=8: M2=0:K=9 
=70 FORT=0T024: POKES+T ‚„OsNEXTIPOKE198,0 
600 U=03 X1=0: J=PEEK (JD) ı IF (JAND16) SOTHEN 
SDSUB10OO 
&10 IF CTANDE) =OANDX<232THENX1=42 Z1=250:U 
s12£=C+15G0OT0530 
620 IF (JJAND4) =0ANDX >ZOTHENX1=-4: Z1=252: U 
=-1sCc=c-1 
650 X=K+X1:3 POKEV, X: POKEB, Z1+Ur IFU=1THENG 
OSUBS 
640 IF tIANDZI =OTHENGOSUB7OO 
650 IF (JANDI)=OTHENBUSUB7SO 
650 M2=M2+11 IFH2/3=INT (M2/3) THENPOKEM „Mt 
M1} 2M1=M1-Lı IFML<OTHENM1=9ıNM=M-1 
&70 IF (PEEK IC+40) e32ANDPEEK (CI < >FIANDPEE 
K{C)<>FZ2) ORPEEK (C) »F4GRM=189&THENGOTO70O 
o 
&80 X=X+X1:POKEV, Xı POKEB, Zi: IFU=1THENGOS 
uBz 
670 IFPEEKIC)=ÖTHENPOKREE,32:1SC=65C+20:1808 
UB&O00: PRINTSSJ SC: K=K+1 IFK=12THENS500 
591 GETASS IFA$=" CTALEI" THENPOKESS280,12 
:POKE198 O0: WAIT1IB, 1: POKES32B0 „0: POKE1IB 
ö 
> 
695 GDTO400 
790 IFtPEEKCI<S>FLIANDPEEK (CI< IFZIOR(PEEK 
(C+40) <>FLANDFEEK (E+40) <>F2) THENRETURN 
710 FORT=1TD4: Y=Y+4: POKEV+1 „YıPOKEB, 254: 
GOSUB33 FORF=1T0OS0:NEXT 
720 YaY+4: POKEV+1 ,YsPOKEB,255: GO8U82: FÜR 
F=1T0501NEXT: NEXT:POKEB,27112G=C+1&0: RETUR 
N 


730 IF (PEEK(C)I<>FLANDPEER (CI<>FZIOR PEEK 


6-40) <>FLANDPEEK {C-40)< >F2) THENRETURN 
760 FORT=1T04: Y=Y-43 POKEV+1 ,Yı FOKEB, 2541 
GOSUB3: FORF=1TOS0: NEXT 

779 Y=Y-4:POKEV+1,YıPOKEB, 255: GOSUB2: FOR 
F=11T050: NEXT: NEXTIPOKEB, Z1:C=C-1603 RETUR 
N 

800 Xt0)=1145:D )=20: X{1)=1171:D11)=20r 
X2DI=-115: DI YA KL (HDe115HHD(TI=4 


"801 %i3)=1791:D(4)=4:X(5)=21805:DIH) WE KL 


&)=1518:D(&s)=12 

802 21=178: Z2=177:ıF=5ı RETURN 

810 X(0)=11473D(O)=9:Xt1)=1169ıD( 1) «BE XL 
23=14784D (2) =41 X (3) 21627: D{II=B 

Bl x14)=16491 DM =8: Z1=91,22=92ı Fe10:E1 


e1sRETURN 
'B20 KO) =1149zD10)=41 X(1)=1327: DEI) =4ı X 1 


23=1478:D (27 =44X(9)=1629:DI3)=4 

821 K(M)=1807:D(4)=4ı 21=95ı Z2=93: Fa7ı Ele 
I1:RETURN 

a30 K(O)=1158:D(0)=20:L17)=1531ıL18)=167 
1:L{9=1851:E1=2 

851 L(OI=1184:L 11) =134Aı L (23-1504 LFI 
&643L(4)=1824:L(SI=1211ıL(65)=1371 

832 Z1=941 72=99ı Eil=2ı1F=6ı RETURN 

8409 XKtOI=11583D(0)=B: X (1)=1467: Dt LI =AcK 
Z)=e1447:D(DI 4X TIe1A3nDITI=B 

845 LOW =1192:L(1)=1352ı L(2)=1672: L (HI 4 
832:L(4)=1203:1L19)=1383:L (6) 1483 

846 Li{7})e1B43; F=14: Z1=43: Z2=45: E1=2: RETU 
RN 

850 XI =1147:DII=4E.X (1) =13ZIEDE1I SHE Kl 
2)=14672D(2)=4: X (D-14449 DH =4 

851 X(4)=1787:D (4 =44 71=40: Z2=41: F=8r1.0= 
i:L1=-1:E1>2: RETURN 

BLO KIO=1159DO)eAıK1I=1F18:DL1I=AS KL 
2ul46723DIZI=-A: NAT) EL 53T DITI = 

BAal Kt4)=1809:D14) =4ı 21=33: Z2=353: Fe2: El= 
311.0=1:1L1=2: RETURN 


Gompure mi 


<156> 
<71> 
x222> 
x87> 
<155> 
x99> 
x37> 
<34> 
x179> 
<244> 


<5B> 


<237> 
<49> 
<54> 
<30> 
<234> 
<164> 
“187> 


<77> 
<22> 
<248> 


<177> 
<124> 


<0> 
s6l> 


<17> 
<21> 
<109> 
<I8> 
<231> 


<171> 
2377 


<156> 
<135> 
<252> 
<206> 
<165> 
<80> 


s157> 


Programme 


870 X 0) »11551D (O)=4, Kt 1)=135213Dt1)=4ı Kl 
2)=1475:D12)=4: X (3)=16411D (3)=4 

871 X(4)=1795:D (4) =Aı Z1=635: Z2=6Iı FeilıEl 
=3:L.0=11ıL1=-3: RETURN 

880 X0)=1146:DI(0) =20:X 11)=1170rD1)=20: 
F=4:E1=4:LO=11L_L1=3: Z1=618 22=>612 RETURN 
870 KIO)=1158:D (O)=41X 11 I)=13I01D 1) =4: X 
2)=1470:D(2)=4:X (F}e1624:D IH =4 

871 X(4)=1798:D (4) Ar F=3: E1=4s10=1:L1=33 
Z1=44: Z2=443 RETURN 

300 RETURN 

1090 POKES+4 „OÖ: POKES+2, 15: FOKES+5, 9: FÜKE 
8+6 „HB: POKES, 15 POKES+4 „33: IFPEEK (B) =250T 
HENGOTO1050 

1005 IFX<SABTHENFOKES+4 „05 RETURN 

1010 POKEB, 248: FORT=1T06ı Y=Y-13K=X-4:POR 
EV+1 ,YıPOKEV, X: POKES+1 ,T#20 

1020 FORF=1T020:NEXT=NEXT 

1030 FÜRT=&TO1STEP-1s Y=Y+12X=X-A: POKEV+T 
„VıPOKEV,„X: POKES+1,T#20 

1040 FORF=11020rNEXT= NEXTSC=C-6: POKES+A, 
O:5=21 RETURN 

1050 IFX>204THENPOKES+4 ,Zı RETURN 

1055 FOKEB, 249: FORT=1TO4: Y=Y-13 X=X+4:POK 
Ev+1 ,Y: POKEV,Xr POKES+1 , T#20 

1060 FORF=1T0203 NEXTsNEXT 

1070 FORT=4TO1STER-1:2 Y=Y+1:X=X+4s POKEVYrL 
„YsPOKEV, Xı POKES+1 ,T#20 

1080 FORF=1T020: NEXT: NEXTrC=C+6: POKES+4, 
0: 8=2: RETURN 

5000 PRINT"{RVSUON GREEN ELEAR SPACE40Y"; 
sPIKEV+33 „Os FOKEV+S2,0 

5010 PRINT" ISRACES} m TSPACESI „ SPACE 
#3 nISPACEIS>" 

5020 FRINT"£SPACESI| »—— TSPACE4} | | {SPACE 
43 | |CSPACEISY"Y 

5030 PRINT"{SPACESII Vm TSPACE2I »— ITSPA 
CEI + [TSPACEI „SPACE m TSPACEPI" 3 
5040 PRINT" CSPAGEB+T I TSPACE2I | A 1TEPA 
CEI| „m 1TSPACE> | | TSPACE3 | 1 KSPACEFI" 5 
5050 PRINT"ISPACEBII S— TSPACEI | — ITSPA 
cE} | Ko PISPACEF |  IESPACEI 7 

5060 PRINT" {SPACEBI —— TSPACH: rtspA 
CEI Y—I TSPACEI | tSPACEII®E 

5070 PRINT"(SPACE273 — | {SPACEIY" 3 

5080 PRINT"{SPACE, SHIFTSPACE SPACE2S} —— 
J{SHIFTSPACE SPAGESY"; 

5090 PRINTY{RVSOEFFFGTEFEWI II TITTEN 


EUITUTTTTT 

5100 PRINT"{PGOHN WHITE SPACEAIHWRITTENTSP 
ACEHBVLSPACE} JOACHIM{SPACEIRESE SPACE} IN 
tSPAGE} 1984" a VI=Z3R=10Rl=1:P=1 

5101 POKEV,40: POKEV+2,40: POKEV+16,3:POKE 
Y+4 ‚501 POKEV+6,50 

5102 POKEV+1 ,1705 POKEV+3 „2204 POKEV+5,170 
LPOKEV+7 „220: POKEV+28 313 POKEV+39,5 

5103 POKEV+40 5: POKEV+41 „5: POKEV+42,51PD 
KEV+37 ,7:POKEV+39,2 

5104 FORT=OTDS: POKE2040+T 2503 NEXT=FOKEV 
+21 ,31: Y=252ı Yi=s251:POKE178,0 

5110 PRINT"{HOHE RVSGEE DOWNIT YELLOW”, 
NESPACESFLEVELS "HRIS TILEFT. SPACEZI” 

5120 PRINT,"{SPACE2 DOHNZ LIG.RED RVSOFE 
rn I 

5130 PRINT, "ISPAGE2I  {SPACEIPRESS{SPACEI 
FIRE{SPACE} |" 

5140 PRINT „"{SPACEZI ——— 1: BOBU 
85200 

5150 PRINT“CHOHE DEHNLF. YELLONS" „"ISPACE 
AILEVELE"HZRISTILEET SHIFTSPACE SPACEI” 
5180 PRINT, "Cpoung LIG.RED SPACE2 RVSON} 



































5170 PRINT, "CSPACE2 RUSORYR ISPACEYPRESST 
SPACEIFIRETSPALCEF I" 
5180 PRINT,"{SPACEZ RVSON)} 





<252> 
<70> 
<142> 
«973 
<192> 
<21> 
<121> 
<179> 


«120> 
<210> 


<b> 


<23&> 
%1447 


<148> 
s251> 


“263 
“45 
<185> 
1497? 
<10> 
4637 
«753? 
<1&1> 


x253> 
x77> 


<«34> 


*95> 


1927, 
x218> 
*84> 
“1> 
<78? 
<14> 
<A9> 
x72> 
«577 
*B2> 
<182> 
<70> 


°4:G08UB5200: 60705110 
5200 J0=56321 3 J=PEEK (10) s IF (JAND1&) =OTHE 
NIS 
5210 J0=56320: J=PEEK (JO) ı IF CIAND16) =OTHE 
N9S 
5220 GETA$: IFAS=" EL) "THENRI=RI+11 IFRI>1 
OTHENRi=1 
5230 POKE2042,Y11POKE2043,YisYi=Yi+121IFY 
1=252THENY1=250 i 
5235 POKE2040,Y: POKE2041 ,Yı Y=Y+1: IFY=254 
THENY=252 
5240 P=P+.2: IFP>=STHENP=1 
5245 ONINT (P) B0SUB5300,5310 
5250 RETURN 
5300 PRINT"IHOHE RVSUFF DOWNI4Y" „"CHORET 
SPACE2IHIGHSCOREe "HIN" CLEFT, SPACEI" «RE 
TURN 
5310 PRINT"{HOHE RVSOFF. DOWN14}" „"XDGREY 
SPACEILASTLSPACEYSCORE: "3805 "LEFT SPAC 
E33 "2 RETURN 
&000 POKES+11 ,0:POKES+24 ,15: POKEB+12,9ıP 
OKEB+15, O1 POKES+B,50: POKES+7 „52 POKES+11, 
17 
6001 IFSC>HITHENHI=SCH PRINTHSZHI 
6002 RETURN 
&500 POKES+4,01POKES+24 ,15: POKES+5, ‚Fr POK 
ES+6 ‚68: POKES, 11 PÜKES+4,33 
6510 IFM=187&THENPOKES+6 ,OrRi=Ri+11G0T01 


00 

6320 POKEM,M MI) aM1=M1 13 IFMLSOTHENMI=ML 
ıMi=8 
4530 FORT=S0T02005TEPBı1 POKES+1,TıNEXTISLC 
=5C+S55 PRINTS$ 8C# e IFSC>HITHENHI=SE: PRINT 
H$;HI 

4540 GDT04510 

7000 IFPEEK iB} Y24BANDPEEK (B} <2S2THENPOKE 
B,249: 60107010 

7005 FOKREB,Z48 

7010 FOKES+4 „0: POKES+24 , 15: POKES+5,9: FOR 
ES+5,, 2551 FOKES, 11 POKES+4,33. 

7020 "Ea2003 FORT=YTOZSOL ESE-11POKEV+ , Tıp 
OKES+1 ,Eı NEXT: POKES+4,0 
7030 FORT=OT024: POKES+T „O: NEXT: FOKEB+24 , 
15: POKES+S, 9: POKES+& „255: POKES, 1: FOKES+4 
33 

7040 FÜRT=F79T0205TER-2: POKES+1,T:NEXT:PO 
KES+6,0: VI=VI-1: IFVI=-1THEN?OSO 

7045 G0T0100 

70590 FORT=1T01000: NEXT 

7051 PRINT"{HUOHE RYSQEE CYAN DOHNS RIGHT, 
7052 PRINT"CRIGHTT RESORH vn KSPACEr ut 
SPACEI mn n{SPALEI — KRIGHT16>"5 

7055 PRINT"{RIGHTT RYSONH Im TEPAGEI HAT 
SPACE} | Y I TSPACE}I IV KRIGHTESY"S 

7060 PRINT"RIGHTZ RVSONM \— TSPACEI4ISP 
ACEI {SPACE} {SPACE2Y OXSPACE> “— IKRIGHTI6 
+ n 4 
7070 PRINT"{RIGHTZ. RUSONY TSPACEFI m tSPA 
CE}, TSPACE> TSPACEI mt SPACE} KRIGCHTI1S 
#1 
F075 PRINT"{RIGHTT RVSONYM LSPACEI | {SPACE 
3 I{SPACER | VISPACEH KOLSPACEI Ir’ ISPACE> IER 
ZGHfi6>"s 
7080 PRINT”{RIGHT7 RYSOHII {SPACEI “ ISPA 
CEI VO ISPACEI \“-ISPAGEI 4 “TSPACE2} ITRIGHTIS 
> | 
7090 PRINT"LRIGHTT RUSON} Yen 
wi L} 
7100 FORT=OTO24: POKES+T,OSNEXT 
7110 POKES+24 , 15: PDKES+5, 9: POKES+6,,255:rP 
OKES,1:POKES+4,17 
71209 FORT=40T020STEP-1:POKES+1, TS:FORE=1T 
(1100: NEXT: NEXT: POKES+6,0 
7130 FÜRT=1T10500: J=PEEK (JO) s IF (JANDI6I<> 














Gompube mif 


<125> 
<12> 
<14> 
<52> 
<170> 
«27> 
<245> 


<111> 
<356> 


<135> 
<138> 


2a9> 
s157> 
<25> 
Ara? 
*9> 
4165) 
<91> 
<237> 


<224> 
<51> 


<206> 
<70> 


«537? 
<256> 
<2197> 
<972> 
<2> 
<33> 


<182> 
<221> 
<184> 
<130> 
<108> 


<43> 
“139> 


<14> 
<1435> 
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_programme 


OTHENNEXT <a1> 0,15,0,0,15,0,0 <224> 
7140 BOTD5000 x50> 10210 DATAZ,192,0,15,240,0,15,240,0,15,2 
9000 POKE2 „255: POKES6334 ,PEEK (363I4) AND2 40,0,207,240,0,195,192,0,202,160,0 <207> 
54: FOKE1 ‚PEEK (1) AND251: E=12288 <233> 10220 DATA234,168,0,234,171,0,234,171,0, 
9010 FORT=1T02000: POKEE+T,PEEK(V+TJ)3NEXT <12> 42,171,0,42,171,0,42,171,0,63,255,0 x251> 
3020 POKE1 ,PEEK(1)0R41 POKES6334 „PEEK (543 10230 DATA15,240,0,3,192,0,3,192,0,15,19 
34)0R1 <68> 2,0,15,192,0,0,240,0,0,240,0 <41> 
7030 READA1E IFAl=-1THENRETURN <211> 11000 DATAO,126,60,102,223,231,251 231,1 
9040 FORI=0T073READP: POKEE+A1#B+1 ,PıNEXT 26 <151> 
» 60109039 <180> 11010 DATA158,255,255,0,255,255,0,255,25 
10000 DATA3,172,0,15,240,0,13,112,0,5,11 5 <243> 
' 2,0,5,112,0,2,128,0,10,160,0 <209> 11020 DATA155,255,255,7,30,120,224,255,2. 
10010 DATA43,168,0,255,169,0,255,169,0,4 53 <250> 
2,168,0,42,169,0,42,148,0,653,252,0 <«122> - 11030 DATA136,255,255,224,120,30,7,255,2 
10020 DATA207 ,240,0,207,240,0,255,240,0, Ss5 <o> 
255,240,0,0,0,0,0,0,0,0,0,0 <22> 11040 DATA157,255,255,189,153,153,189,25 
10030 DATA3,172,0,15,240,0,13,112,0,13,8 5,255 x201> 
0,0,13,80,0,2,128,0,10,160,0,42, 252,0 <2> 11050 DATA171,255,255, 255,195, 195, 255,25 
10040 DATA42,255,0,42,255,0,42,168,0,42, 9,255 <187> 
168,0,42,168,0,63,252,0,15,243,0 <155> 11050 DATA148,255,255,175,0,60,255,255,2 
10050 DATA15,243,0,15,255,0,15,255,0,0,0 55 <22> 
,0,0,0,0,0,0,0 <198> 11070 DATA169,255,255,255,60,0,195,255,2 
10060 DATA3,192,0,15,240,0,13,112,0,13,8 33 <47> 
0,0,13,80,0,2,128,0,10,160,0,42,232,0 <32> 11060 DATAF4,60,255,155,219,126,56,60,24 <157> 
10070 DATA42,255,0,42,255,0,42,168,0,42, 11070 DATA163,255,255,195,179,206,220,24 
168,0,42,168,0,63,252,0,15,240,0,3,192,0 x22> 8,241 <118> 
10080 DATA3,192,0,3,192,0,3,192,0,5,240, 11100 DATA164 „255,255, 195,227,115,59, 31, 
0,3,240,0 <111l> 143 <108> 
10090 DATA3,192,0,15,240,0,13,112,0,15,8 11110 DATA145,241,248,220,206,197,195,25 
0,0,13,80,0,2,128,0,10,160,0,42,232,0 <62> 5,253 <ih&> 
10100 DATA42,2352,0,42,232,0,42,232,0,42, 11120 DATA166,143,31,59,115,227,195,255, 
232,0,42,232,0,63,252,0,15,240,0 #132> 255 <104> 
10110 DATA15,240,0,12,48,0,12,48,0,12,4B 11130 DATA42,60,125,255,153,255,195,102, 
,‚0,15,60,0,15,60,0 i <150> ‚so <82> 
10120 DATAS,192,0,15,240,0,15,112,0,5,11 11140 DATA161 ,255,255,7,7,240,240,259,25 
 2,0,5,112,0,2,128,0,10,1640,0,43,168,0 <213> Ss <104> 
10130 DATAZSS,168,0,255,168,0,42,148,0,4 11150 DATA191 „255, 153,193, 255,255, 153,15 
2,168,0,42,168,0,63,252,0,15,240,0 <124> 3,233 «165> 
10140 DATAS,192,0,3,192,0,5,192,0,3,192, 11140 DATA189,255,255,240,98,4,15,255,25 
0,15,172,0,15,192,0 <24> 3 <57> 
10150 DATA3,172,0,15,240,0,13,112,0,5,11 11170 DATA172,255,24,24,255,255,24,24,25 
2,0,5,112,0,2,128,0,10,160,0,43,160,0 <243> Ss <127> 
10160 DATA43,148B,0,43,158,0,43,168,9,43, 11180 DATA218, 231,251 ,231,251 ,231 ,259,25 
168,0,43,168,0,63,252,0,15,240,0 <12> 5,255 R <243> 
10170 DATA15,240,0,12,48,0,12,48,0,12,48 11190 DATA240,0,0,0,7,15,31,31,31 <140> 
»0,60,240,0,60,240,0 <184> 11200 DATA2S8,0,0,0,224,240,2498,248,248 <197> 
10180 DATA3,192,0,15,240,0,15,240,0,15,2 ; 11210 DATA2357,31,31,31,15,7,0,0,0 <37> 
40,0,15,243,0,3,195,0,10,163,0,424171,0 <147> 112206 DATA253,248,249,249,240,224,0,0,0  <99> 
10190 DATA234,171,0,234,171,0,234,168,0, 11230 DATA211 ,255,255,255,15,15,255,255, 
234,168,0,234,168,0,255,252,0,15,240,0  x<174> 255,—1 <198> 
10200 .DATAS,192,0,3,192,0,3,240,0,3,240, ENDE DES LISTINGS 





> den in folgendem Format eingegeben: 
usı C- as © r 'D5,4‘ bedeutetz. B. Note D, Oktave 5. Die fol- 
gende 4 gibt die Wotenlänge an. Pausen 


Mit dem Programm ‚MUSIC-MASTER' können Sie wie in pro- | Werden mit'PLänge‘ eingegeben. 


3 z en : Eine Möglichkeit der Staffelung der No- 
fessionellen Spielen dreistimmige unabhängige Hintergrund- tenlängen wäre z.B; 


musik programmieren und in eigenen Basicprogrammen ver- 16 - für eine ganze Note 
wenden. 8 - für eine halbe Note 
Um ein Musikstück spieien zu können, | Im Listing stehen dort bereitsdieNotenfür | 4 - für eine viertel Note 


müssen zuerst die Noten eingegeben wer- | ein kleines zweistimmiges Demostück, 2 - für eine achtel Note 
den. Die Noten stehen in Datazeilen und wer- | 7 - für eine sechzehntel Note 
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"0 





Diese Werte sind jedoch nicht verbindlich; 
es können genauso gut auch andere Wer- 
te verwendet werden. 

Abgeschlossen wird die Noteneingabe der 
einzelnen Stimmen mit ’ENDE‘. 

Um die verschiedenen SID-Register, wie 
z.B. die Wellenform zu setzen, muß man 
die entsprechenden Werte in den Zeilen 
86-95 einsetzen. 

Für die Wellenform muß je nach Wunsch 
17 für Dreieck, 33 für Sägezahn, 65 für 


Rechteck, 129 für Rauschen oder Ofür kei- 
ne Wellenform geschrieben werden. 

Bei Rechteck muß zusätzlich das Tasten- 
verhältnis im Format Lowbyte-Highbyte 
angegeben werden. 

Die Hüllkurve setzt sich aus 2 Werten zu- 
sammen: _ 

Wert 1: 16 * Attackzeit + Decayzeit 

Wert 2: 16 * Sustainpegel + Releasezeit 
Für Attack, Decay, Sustain und Release 
können Werte von 0-15 eingesetzt wer- 
den. 

Die Startadresse in Zeile 86 gibt den Be- 
ginn des MC-Programms an und kann 
nach den jeweiligen Bedürfnissen abge- 
ändert werden. 

Die Angabe bei Tempo in Zeile 89 gibt die 
Spielgeschwindigkeit an. Der Wert kann 
zwischen 1 (schnell) und 255 (langsam) 
liegen. 

In Zeile 88 gibt man an, welche Stimmen 
eingeschaltet werden. 1=an, 0=aus. 
Man kann dann z.B. Stimme 1 und 2 für 
Musik benutzen während Stimme 3 für 
Geräusche frei bleibt. Wenn man alle No- 
ten- und Parameterdaten eingegeben hat, 
kann man das Programm mit ’RUN' star- 
ten. Nun werden die Noten- und Parame- 
terwerte eingelesen und in den Speicher 
geschrieben, was einige Minuten dauern 
kann, 

Am Ende werden die Start- und Endadres- 
se des Notenspeichers angezeigt, die man 
sich notieren sollte, 


Die Musik kann jetzt probeweise mit 'SYS 
Startadresse‘ gestartet werden. 

Um die Musik für eigene Programme ver- 
wendbar zu gestalten und um die Einiese- 
zeit. der Daten zu verkürzen, muß man den 
Datagenerator einladen. Vorher ist es je- 
doch notwendig den IRQ-Vektor mit ’STOP/ 
RESTORE‘ zurückzusetzen. Auf die Fragen 
nach Start- und Endadresse gibt man die 
notierten Werte ein. Der Datagenerator ge- 
neriert nun die notwendigen Datazeilen 
und eine Einleseroutine mit zeilenweiser 
Prüfsumme. Danach löscht er sich selbst. 


Die wichtigsten Register: 
Music-Master belegt die Zeropageadres- 
sen 176-181, sowie die Register 828-858 
im Kassettenpuffer. 
Adresse 
835 Tempo 
848 Wellenform Stimme 1 
849 Wellenform Stimme 2 
850 Wellenform Stimme 3 
851 Stimme 1 ein/aus: 
1=ein, O=aus 
852 Stimme 2 ein/aus 
853 Stimme 3 ein/aus 


Während die Musik spieltkann man durch 
Ändern dieser Register z.B. das Tempo 
verändern oder mit 'POKE 848,0‘ Stimme 1 
stummschalten oder einzelne Stimmen 
ganz abschalten und so fürandere Sound- 
effekte zu benutzen. 





1 REM HMESRRSER EN EERIEKITE <10&> 25 FORA=1T049 <241> 
2 REM #* E77 <221> 24 FORB=0T08: READDA: POKEBA+B „DA: SU=SU+DA 

3 REM ## MUSIC-MASTER E73 <210> :NEXTB <92> 
4 REM ## #8 <225> 27 READSD: IFSD< >SUTHENPRINT"DATAFEHLER{S 

5 REM #* {C) 1785 25 <58> PACE>IN{SPACEFYZEILE"ZE:END <119> 
6 REM ##* #8 «225> 28 ZE=ZE+1:BA=BA+9: SU=O <151> 
7 REM *# K. SELIGER x <u7> 237 NEXTA <33> 
B REM + *% s227> 30 ZE=G <216> 
9 REM PER NIIT HEINE x114> 31: <89> 
10 =: a9: 32: <90> 
il z a9 > 35 REM #%## NOTENWERTE EINLESEN ### <228> 
12 REM ##* KLANGPARAMETER EINLESEN ### Das? 34 FORB=1T03 <103> 
12 DIM PA(20) AREOFF 35 READNOS: IFNDF="ENDE"THENNO {B+1)=465+P 

14 FÜRA=1T020: READPA AI ZNEXTA <B7> BAt1)+ZE=:AN(B) =AN: AN=O: NEXTE: GOTOS2 <140> 
15 2 ATEF 36 AN=AN+I <244> 
14 ı x74> 37 WE=1 <224>5 
17 REM ##* NOTENFARAMERER EINLESEN #a# x165> 358 FORA=1T09& <7> 
18 DIM NO#(7&6) „WE (94) <i154> 39 IFNOS (A) =NO$STHENWE=WE (A) <119> 
17 FORA=1T09& ; READNOS (A) ıNEXF *227> AQ NEXTA <4a4> 
20 FORA=1T09&: READKE (A) sNEXT x210>? 41 IFWE=1THENPRINT"SYNTAXTSPACEZIFEHLERT 

21 ı %79> SPACE}YINZSPACE?NDTE"AN:END <206> 
22 : <90> 32 HB=INT (WE/256) <15> 
23 REM **# MC-ROUTINE EINLESEN ###* z194> 43 LB=WE-HB#256 <159> 
24 ZE=119:BA=PA(1) " <157> 44 FOKEAL3+PA(1)+ZE,LB: ZE=SZE+1 <139> 
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45 FOKE4A3+PALLIH+ZE,HB: ZE=ZE+1 

45 READTT \ 

47 POKE48I+PFAL1)#+ZE,TT: ZzE=SZE+H1 

48 GOTOSS 

49 : 

50 : Ih 

51 REM ##* KLANGPARANMETER SETZEN ###* 
52 NO(1)=4545+PAX1}3B=0: EA=S442+PAC1I+ZE 
55 FORA=-1TOS 

54 HB=INT (NO (A) 7256) : LB=ND (A) -254*HB 
55 FOKEPFA€DI+434+B ,LB: POKEFPA (1) +435+B ,HB 
54 B=B+2 

57 NEXTA 

SB > 

a8 

60 FORA=2TO7 

561 FOKEPA (LI FAIB+A,PACA) 

&2 NEXT 


54 ANTLI=ANLIIRSHPACLIH4ES 

65 HB=INT (AN (1) 7256) zLB=AN (VI -256K«HB 

66 FOKEPR(1)+446 „LB: POKEFA (1) #447 ,HB 

67 3 

68 HB=INT {(PA(LI #171 7/2563) 3 LBS {PA C(1I+191 
)-254*«HB r 

&7 FOKEPA(1)+44B,LB: POKEPA(1)+4997,HB 


E 
71 FOKEFA(1)+450,PA18) 


a 
73 FORA=1T012 
74 FOKEPA(1) +450+A,PA(A+B) 
753 NEXTA 


77 HB=INT ((PA{13+434} 7254) :LB=(PA{1) +434 
)-256*HB 

78 FOKEPAt1)+1,LB=POKEPA(1)+5,HB 

733 

80 PRINTCHR$ (147) 5 "STARTADRESSE: "PA (1) 
81 PRINT"ENDARRESSE SPACE: "EA 

82 ı 


[) 

84 REM ### PARAMETERDATÄS #*#* 

85 : 

84 DATA 49152 = REM STARTADRESSE 

87 DATA 33,33,0 = REM WELLENFORMEN FUER 

STIMMEN 1-3 g 

88 DATA 1,1,0 = REM STIMMEN EINSCHALTEN: 
i=EIN S=AuUS 

87 DATA 13 : 

90 DATA 0,0 : 

E 1 .. 

91 DATA 10,10 = REM HUFLLKURVE STIMME 1 

» 16*A+D „ 16#S-+R 

92 DATA 0,0 3 REM TÄSTENVERHAELTNIS STIM 

ME 2 

753 DATA 10,10 = REM HUELLKURVE STIMME 2 
z 16*A+D „ 16RS4R 

74 DATA 0,0 z REM TASTENVERHAELTNIS STIM 

ME 3 

95 DATA 0,0 = REM HUELLKURVE STIMME 3 e 
164A+D „ 1&%5+R 

76 : 

97 3 

78 REM #** DATAS FUER NDTENPARAMETER ##* 

97 DATA CO,C#0,00,D8RO,EO,FO,F#0,60,680,A 

O,A#O,HO 3 

100 DATA C1,C#1,D1,D#1,E1,F1,F#1,G1,6G#1, 

Ai ,At1,Hi 

101 DATA C2,C#2,D2,D#2,E2,F2,F#2,62,G#2, 

A2,A#2,H2 

102 DATA C3,C#3,D5,083,E5,F3,F#3,63,6#3, 

AZ,AH#S,HS 

103 DATA C4,C#4,D4,D#4,E4,F4,F#4,64,6#4, 

A4,AB4,H4 


REM TEMPO (1-255) 
REM TASTENVERHRELTNI STIMM 


<90> 
<897 
<x389> 
<170> 
*107> 
<108> 
<151? 
“1657 
<120> 
<15> 
<85> 
<70> 
<al> 
<115> 
<117> 
*155> 
s123> 
<192> 
“121> 
57: 
“172> 
<152> 
<125> 


<x115> 
223) 
<128> 
<200> 
<130> 
<222> 
<184> 
<79> 

<134> 


<124> 
<12> 
%137> 
<21> 
<ü> 


*140> 


“ral> 
2327 
<145> 
x175> 
<6> 


<215> 
<224> 


<32> 
<136> 
<181> 
<1Aa3> 
“213> 
x247> 
<154> 
<155> 
“92> 
<a0> 
<&öl> 
«72> 
<B3> 


2974> 


werkstatt 


104 DATA C5,C95,05,045,65,F5,F45,65,6#5, 

AS,A#5,H5 

105 DATA C&,CH#&,D&,D4#4 ,Eö,F6,F84,66,5#4, 

A&,At6,H& 

10& DATA C7,C#7 ,„D7 ,D#7 ,E7 ,F7,.F#7,67,6#7, 

A7,087,P 

107 a 

108 : 

107 DATA 278,295,313,331,351 ,372,394,417 
„342,468 ,496,526 

110 DATA 557,590,625,662,702,743,798,8954 
‚804,937 ,9972,1051 

111 DATA 1114,1180,1250,1325,1405, 14897 ,1 

575,1567,176B,18973,1985,2103 

112 DATA 2228,2360 ,2500 ,2649 „2807 ,2974 ,3 
150,3339, 3536 „3746 ,3969 ,4205 

113 DATA 4455,4720,5001,5298,5613,5947 ,6 

301 ,6676,7072, 7493, 7937, 0411 

114 DATA 89711,9441,10002, 10577,11227,118B 

94,12602,13351,14145, 14986, 15877 ,16821 
115 DATA 17821 ,19881 ,20004,21193,22454,2 

3789 ,25203 , 26702, 28290 ,29972,31754,33642 
114 DATA 35643,37762,40000, 42387 ,44907 ,4 

7578,50497 „53404 „56580 „37944 ,43508,0 

117 x 

118 REM #** DATA5S FUER MC-PROGRAMM ##% 
117 DATA 169,100,133,80,169,110,133,81,1 

67, 1144 
120 DATA 

85 

121 DATA 
1103 
122 DATA- 245,177,90,141 ,687,3,200,177,80, 
1171 
125 DATA 
1155 
124 DATA 200,177,80,141,5,212,200,177,80 
„ 1272 
125 DATA 
1178 
125 DATA 200,177,80,141,10,212,200,177,8 

0, 1277 
127 DATA 

2, 1188 
128 DATA 200,177,80,141,16&,212,200,177,8 

0, 1283 
129 DATA 

2, 1197 
1350 DATA 200,177,90,141,20,212,200,120,1 

67, 1317 

131 DATA 0,141,63,3,141,64,3,141,65, &21 
132 DATA 3,167,1,141,60,3,141,61,3, 5B2 
133 DATA 141,62,3,141,66,3,173,74,3, 66 
134 DATA 133,176,173,75,3,153,177,173,76 
.111? 

135 DATA 3,133,1798,173,77,3,133,179,173, 
1952 

1356 DATA 78,3,133,180,173,79,5, 133,181, 

963 


15,141,24,212,160,0,140,90,3, 7 


177,80,153,74,3,200,192,16,208, 


141 ,2,212,200,177,80,141,3,212, 


141,6,212,200,177,80,141,9,212, 


141,12,212,200,177,80,141,13,21 


141,17,212,200,177,80,141 ,19,21 


137 DATA 173,90,3,240,4,88,76,49,234, 95 
7 
138 DATA 120,173,88,3,141,20,3,173,89, 8 
10 


137 DATA 3,141,21,3,169,1,141,90,3, 572 


130 DATA 88,96, 174,66,3,202,142,66,3, 84 
o 
141 DATA 240,3,76,49,234,173,67,3,141, 9 


86 

142 DATA 66,5,165,177,205,97,3,144,7, 85 
7 

143 DATA 
s„ 1207 
144 DATA 3,240,46,174,60,3,202,142,60, 9 
30 


165,176,205,86,3,176,139,174,93 


Compubs mib 


<105> 
<116> 
<249> 
z165> 
<166> 
“2377 
<113> 
<149> 
x1895> 
<128> 
x<82> 
<1d4> 
<249> 
<175> 
<16> 
“217? 
<206> 
<120> 
<123> 
KPOA > 
<65> 
<173> 
<243> 
<124> 
<238> 
<154> 
<169> 
x32> 
<350> 
<121> 
<893> 
<119> 
<41> 
<8&> 


x145> 
x93> 


<255> 
x37> 
x184> 
<B1> 


<121> 


n 


12 


werkstatt | 


> 


145 DATA 
i102 
146 DATA 
10914 
147 
853 
148 DATA 
69, 1255 
147 DATA 
4 
150 
1 
151 DATA 
1106 
152 DATA 
, 21150 
153 DATA 
754 
154 DATA 
717 
155 DATA 212,173,85,3,240,46,174,62,3, 9 
78 
156 DATA 
Fri 
157 DATA 
1, 1294 
158 DATA 
784 
157 DATA 
FA 
1609 DATA 
5, 1261 
161 DATA 
5 
162 
84 
163 
35 
144 
aaa 
165 
45 
ibh 
717 
i67 
168 
167 
170 
171 & 
172 DATA D5,3,05,1,05,1,E5,1,D05,1,0#5,1, 
H4,4,H4,4,0#3,1, 06541 
173 DATA D5,1,65, 3,05, 1,89, 1,°#5,2,F#5,2 
„E5z,1,94,3 
174 DATA D5,3,05,1,05,1,E5,1,05,1,0#5,1, 
H4,4,H4,4,C#5,1,0#5,1 
175 DATA DF5,1,E943, 25,1, ES, 1,F#5,2,F#5,2 
E5,1,A4,5 
174 DATA F#5,2,95, 2,65, 2,F#85,1,05,1,E5,1 
„F#S,2,E5,5 
177 DATA F95,3,E5,1,05,2,05,1,H4,1,E5,1, 
F45,2,65,3,D5,1,65,1 
178 DATA F#5,2,A5,2,65,2,F#5,1,D5,1,E5,1 
‚C#5,1,H4,1,A4,3 
177 DATA D5,3,C#5,1,H4,1,0#5,1,D5,2,E5,1 
o . 
180 DATA F#5,2,E5,6,F95,2,E5,2,D5,3,E5,1 
„F#5,2,45,2,65,2,F#5,1,D5,3,F85,2,E5,6 
181 DATA E45,2,E5,6,F95,2,E5, 2,05, 1,6551 
„E#5,2,05,2,65,2,F#5,1,D5,1 
182 DATA ES,1,035,1,H4,1,A4,3,H4,1,0#5,1 
183 DATA D5,3,D5,1,05,1,E5,1,DS,1,0#5,1, 
H4,4,H4,4,0#5,1,C#5,1 


3,208,37,160,0,177,176,200, 141, 
68,3,177,176,200,141469,3,177, 

DATA 176,141,60,3,165,176,24,105,3, 
133,176,165,177,105,0,133,177,1 
0,141,4,212,174,84,3,240,4&, 90 
DATA 174,61,3,202,142,61,3,208,37, 8 
160,0,177,178,200,141,70,3,177, 
178,200,141,71,3,177,178,141,61 
3,165,178,24,105,3,133,178,165, 


179,105,0,4133,179,167,0, 141211, 


202,142,62,3,208,37,160,0,177, 
180,200,141,72,3,177,180,200,14 
73,3,177,180,141,62,3,165,180, 

24,105,3,133,180,165,181,105,0, 
133,181 ,169,0,141,18,212,234,17 
80,3,141,4,212,173,69,3,141, 82 
DATA 0,212,173,69,3,14141,212,173, 9 
DATA 81,3,141,11,212,175,70,5,141, 8 
DATA 7,212,173,71,3,141,8,212,173, 1 
DATA 82,3,141,18,212,173,72,3,141, 8 
DATA 14,212,173,73,3,141,15,212,76, 
DATA 49,234,0,0,0,0,0,0,0, 283 


Rem *#%# DEMÜ-STUECK 
REM HERREN 


184 DATA D5,1,E5,3,05,1,E5,1,F#5,2,F98,2 


„ESy1,A4,3 


427 

<18B> 
<24> 

<219> 
23> 

+<215> 
x34> 

<104> 
<108> 
«zi1> 
<67> 

42213 
*150> 
4722 
<BAa> 
1733 
<31> 

23> 

<219> 
z46> 
13073 
«201 > 
<142> 
<22&> 
<144> 
<is1> 
x229> 
«65> 

«2O1R 
<67> 
2203» 
«43> 
<I6> 
«157> 
<208> 
28} 


877 
„2lbr 


«763 


“212> 


185 DATA D5,3,D5,1,05,1,65,1,05,1 
H4,4,H4,4,C0#5,1, 085,1 
18& DATA D5,1,65,3,05,1,65,1,F#5,2,F#542 
„ES,1,0547,P,1 
187 DATA ENDE 
188 DATA DS,4,D3,4,63,4 ,H3,2,D3,2,A3,4,A 
3,4,03,4,03,2,E4,1,A3,1 
189 DATA D3,4,D3,4,63,4,H3,2,03,2,A3,4,A 
3,4,03,4,A3,2,E4,1,A3,1 
190 DATA D3,4,03,3,03,4,03,4,H3,4,63,4, A 
3,4, A3,4 
191 DATA D3,4,03,4,03,4,3,4,H3,4,63,4,A 
3,4,95,3 ä 
192 DATA 
3,4,A3,3 
193 DATA 
3,4,03,4 
194 DATA D3,4,03,4,63,4,H3,2,D3,2,A3,4,A 
3,4,03,4,03,24E4,1, 45,1 
195 DATA D3,4,03,4,63,4,H3,2,D3,2,A3,4,A 
3,4,03,4,03,8 
19& DATA ENDE „ENDE 

ENDE DES LISTINGS 


„ERS,t, 


93,1,A3,7,83,1,A3,8,03,4,D3,4,R 


A3,1,A3,7,03,1,93,8,03,4,D3,4, A 


x“ 78> 


#201 
“275 


<100> 
-101> 
“68> 

<29> 

<140> 
»181> 
x106> 


<80> 
<149> 


ee a 


Datengenerator 


99 GOTR190O 

120 FORB=0T015:READDA: FOKEBAH+B „DA: SU=SU+ 
DAzNEXTB 

130 READSB: IFSB< >SUTHENFRINT"DATAFEHLERT 
SPACE} INISPAGEIZEILE"ZE: END 

140 ZE=ZE+1:BA=BA+1A 

150 NEXTA 

160 SYSBER 

170 3 

120 3 

190 PRINT" {ELEARMUSIC-MASTER{SPACE:DBATA 
GENERATOR": PRINT: PRINT 

206 INPUT"STARTÄDRESSE"3S5As IFSA=CTHENPRI 
NT" {UP23":GOTDO209 

210 INPUT"ENDADRESSETSPACE2Y”3 Ef: IFERXSA 
THENPRINT* {4P23":G0T0210 

220 PRINT" {CLEAR} ZEOTSPAGEISA="SATER="E 











A 

230 FRINT”GOTDTSAAGCEI2SO" 

240 POKE&31 „19: POKE632, 13: POKE633, 13: FO 
E198,3:END 

250 POKE@ZE,0:POKEBZ9, O0: PNKEBSO,0: PIKEBS 
1,0: POKE8S2,1 

270 IFPEEK (829) =1THEN43O 

280 POKE828,PEEK (828). +1 


2909 PRINT"tCLEAR} "SPEER (828) +1 FF" DATALS, 





PACE3"; 

300 FORJ=01015 

Z10 AD=SA+J+PEEK (830) #14: BE=SPEEK (ADY IFA 
D>EATHENBR=U 

320 IFAD=EATHENFOKEAZF 1 

330 AN=AR+BR 

340 BBS=RIGHT# (STRS$ (HER} „LENSTR$BBI)-1) 
350 PRINTBB$; 

360 PRINT" ,"3 

370 NEXTI 

390 PRINTAA3 

390 POKEB3O,PEEK (830) +1 

400 PRINT:PRINT"GOTOLSPACEF260" 
410 POKEAS1,19 








420 FOKE4S32, 13: POKE6SS, 13: POKESSA, 13: FOR 
Ei98,4:END 

430 PRINT” (CLEAR? LOOLSPACEI ZE=2000: BA="S 
A": BB=BA" 

440 PRINT"L1UCSPACEIFORA=1TO"PEEK (830) "ı 
Su=0o" 


450 PRINT"3F0" 


Gompute mi 


x176> 
wias> 


A222> 
2207 
154% 
“issr 
“2287 
23895 


<77> 
“2197> 
<142> 


<158> 
<245> 


<115> 


<103> 
<196> 
<oO> 


<19> 
x229> 


<226> 
<246> 
<71> 
<197> 
<2497> 
<121> 
<137> 
<71> 
<10> 
xB2> 
x140> 


<64> 
“1045 


<1857 
<ı81> 
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460 PRINT"GOTOTSPACE}ABO" <7> B en 
470 POKEAZI, 19: FORA=1TO4:POKEAS1+A,1I:NE 470 PRINT"GOTOTSPACE} 480" 
XT:POKE1IQ,S:END <1A> 500 POKE832 ,PEEK (8323 +1:POKE631 , 19:5 FDRA= 


ABO IFPEEK (832) <SSTHENPRINT" CLEAR?" S2FOR 1709: POKE&GSI+A, 13: NEKT:FOKE198, 10: END 
B=4TOR2PRINT (100+10#B) +80=PEEK (RA32) sNEXT ENDE DES LISTINGS 


Bewerbung als Programmautor 


sen een NRTNANIG! 

a EEE Wohnort: 

Titel ds Pogammes: _—_—______————_ Computersystom: 
Erforderlicher Speicherplatz: 

Erforderliche Peripherie: 


ich versichere hiermit, daß ich der Autor desoben genannten Programmes bin und alle Rechte besitze. Ich bin damiteinverstanden, daß Sie 
mein Programm in einer Zeitschrift abdrucken und/oder dieses verkaufen. Das einmalige Honorar beträgt 120 DM pro abgedruckte Seite. 
Sollte das Programm nicht veröffentlicht werden, bitte ich um Rücksendung meiner Unterlagen. 


Folgende Unterlagen liegen diesem Schreiben bei: 


Kassette: Diskette: Dokumentation: 


Unterschrift des Programmautors: 
Einsenden an: Tronic-Verlag Abt. Programmentwicklung, Am Stad 35, 3440 Eschwege 


Auftrag für Gelegenheitsanzeigen in „Gompute mit..: 


An „Gompute mit...“ NE 


Tronic-Verlag 
Postfach 


3440 Eschwege re 


Unter der Rubrik „Kleinanzeigen“ Ich wünsche folgenden Text zu veröffentlichen: 
veröffentlichen wir Gelegenheits- 


anzeigen für Verkaufsangebote, 
Kauf- und Tauschaesuche, Kon- 
taktaufnahme bzw. Erfahrungs- 
austausch usw, 


Aktuell: 

Unsere Preise für „Kleinanzeigen“; 
Jede Kleinanzeige nur 10,- DM 
Jede gewerbliche 
Gelegenheitsanzeige nur 15,- DM 
Ben nicht unter Chiffre erschei- 


en) 
Eine Veröffentlichung erfolgt nur 
gegen Vorkasse! 


Zutreffendes ankreuzen 
Kleinanzeigen jetzt suche © Nsofwers suche © Hardware © Tausch > Versch. 
noch preiswerter blete an O Software bietean (© Hardware Kontakte OÖ Chiffre 
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% Kleinanzeigen % Kleinanzeigen % Kleinanzeigen % 


Biete Hardware 


%x%k% C-16 Hardware vr hr 
% 16K Erweiterung 89,-- 
#r 54K Erweiterung 179, 
%* Joystick Adapter g——# 
% Cassetten Adapter 11, %* 
% Datenrecorder anschlußf. 69,—— % 
* Drucker MP$803 kempl. 379,-— * 
% Farhmonitora 1702 598,-- # 
% Inio/Bestellungen: 07307/6230 & 
# Comp. Service, Postfach 1904 #r 
Akrkr% 7913 Senden vaKk% 


EB} Commodore 64/16/116/128 
& VC 20 @ ACHTUNG: Sie ha- 
ben die Computer, wir die pas- 
senden Super Spiele, Erweite- 
rungen, Anwenderprogramme 
& Interfaces. Z. B. Bricks, Ty- 
pingtutor DX, Amazor, Philkato, 
Schaltinterface & solange Vor- 
rat reicht, Bücher, Katalog ge- 
gen 1,60 DM in Marken bei: 
Soft- & Hardwarevers. U. Tie- 
dau, an der Ölmühle 27, 4270 
Dorsten 1 


» 60667 Bytes free! @ bei ih- 
rem C16, Erweiterung im 
Grundgerät (C16) ohne Zusatz- 
platine, der Steckport bleibt 
frei. Im Grafikmodus steigt der 
Arbeitsspeicher von 2K auf 
48K. Und das alles zusammen 
tür 150,- DM incl. Umbau + 6 
Monate Garantie! Tel, 069/ 
7851 64 werktags ab 17,00 Uhr 


Drucker, Zubehör, Anwender- 
Software, Abdeckhauben, Pla- 
tinen, Module u. a. für Schnei- 
der und Commodore: 
Star-Texter, Star-Tool, 
Star-Datei, Star-Printer‘ 
Disketten 51% Zoll 10$t. 22,- 
Computer-Peripherie, Fritz 
Zander, Löwenstraße 24, 4600 
Dortmund 1, Tel: 0231/ 
57 8129. 10-21 Uhr. 


84,- 
64,- 


® O Achtung! Achtung O ® 
sehr dringend! Verkaufe G116 
mit Datasette in Originalver- 
packung für nur 160 DM. Bitte 
melden bei: Stephan Theis, 
Stockbornstr. 12, 5910 Kreuztal 
5, Tet, 02732/74136 


Biete Software 


C64/VC20/C016/118/4+/C128 
Spielenaket- Denktraining- Bi- 
blo-Karten » KFZ-Paket « YSI- 
Video-Musik-Fotoarchiv - EK - 
Denktraining - Tabelto- Digitalo 
Adress - Fibu. Handbücher ab 


‚9,90. Katalog gegen 80 Pi- 


Briefmarke. T. Hofstede - Com- 
puterservice - A.d.Windmühle 
8, 5010 Bergheim 5 


kwAr% C-16 Software ki * 
% Gremlins 25--% 
%* Thai Boxing 29,90 * 
% Spiderman 29-- * 
% Winter Olympiade 22,90 & 
% Favourite 4 (Paket) 30,-- * 
%x Mastertronic Spiele je 990 %# 
% Turbo-Tape (8% schnell.) 15,-- #* 
# Tel. Bestellungen: 07307/6230 * 
* Gamp. Service, Postfach 1304 % 


wre 7913 Senden dr dir di der 


TOPANGEBOT für Schneider 
CPC. Ca. 50 Spiele und Anwen- 
derprogramme. Fordern Sie 
einfach die kostenlose Infor- 
mationsliste an. Postkarte ge- 
nügt. R. Höger, Friedrichstraße 
9 7317 Wendlingen, Tel. 
07024/2163. 


C-16 Yormeszungsprogramm C-64 
12  Berechnungsprogramme 


‘mit teilw. mehreren Berech- 


nungsmöglichkeiten; 5 Daten- 
verwaltungsprogramme; Me- 
no-u. Abfragegesteuert; Koor- 
dinatenbibliothek für 255 
Punkte; Druckersteuerung, 
Kassetten o. Diskettenbetrieb. 
Tel. 022051858. 


% Dalay Thompson’s Star 
Events. Cassette für G-16/116 
DM 19,95. Hochspannung im 
Stadion: 100 m Lauf; 110 m Hür- 
den; Weitsprung; Kugelstoßen; 
Speerwerfen. Ein Wahnsinns- 
spaß bei einer erstklassigen 
Grafik. SUPER! Lieferung fre) 
Haus. Kein Porto. Versandhan- 
delR.Lindenschmidt, Schulstr. 
14, 4972 Löhne 2. 


% 4 BALLBLAZER C-64 + + 
Cassette 39,95; Disk 68,95. Der 
schnellste Sport im Universum. 
Mit ihren Flugkapseln versu- 
chen die Spieler die Bälle mit 
wahrhaft atemberaubender 
Geschwindigkeit ins Tor zu 
knallen! Lieferung frei Haus. 
Kein Porto. Versandhandel R. 
Lindenschmidt, Schulstr. 14, 
4972 Löhne 2. 


® ACE : Air Combat Emulator 
Cassette für C-16/116 DM 
88,95. Die Kampfflugsimulation 
für den C-16/116. Phantasti- 
sche Grafik, 10 Instrumente 
sichtbar, künstlicher Horizont, 
Radarbild, schnellste Reaktion 
wird verlangt. Lieferung frei 
Haus. Keln Porto. Versandhan- 
dei, Lindenschmidt, Schulstr. 
14, 4972 Löhne 2. 


EB TORPEDO RUN C-16/116 I 
18,95. Super U-Bootsimulation, 
steuern Sie ihr U-Boot durch 
den Minengürtel, suchen Sie 
den feindlichen Konvoi mit ih- 
rem Sonargerät, Rundumsicht 
mit Periskop möglich, Spitzen- 
grafik, viele Instrumente. Liefe- 
rung frei Haus. Kein Porto. Ver- 
sandhandel R. Lindenschmidt, 
Schulstr. 14, 4972 Löhne 2. 


Spiele und Anwendungspro- 
gramme für den VC20 zu Mini- 
preisen!!! Liste mit Programm- 
beschreibung und Preisen ge- 
gen 0,80 DM in Briefmarken. 
SF-Soft, Sven Faulhaber, Müh- 


| lerıweg 7, 3401 Seulingen. 
ee er er 


% C16/116 & Grafikprogram- 
me-Mini-CAD, sichern, laden 
und weiterbearb. d. Grafiken; 
Info gegen Porto; M. Rätzel, Ul- 
venbergstr. 6, D-6100 Darm- 
stadt % C16/116 # C16/116 X 


EEE ZI —S SS En Z; 
% BES PF.1159 - 4030 Ratingen 1 % 
kuıhkviuhshhurh 
*Für Leute, die GUTE Soft-* 
% und Hardware zu Spitzen-%#* 
#* preisen mögen! Für C16/%* 
%# _C64/MSX/CPCST. * 
arhrhhrr haha 
%* 2.8. Mastertronic 7,90; „U“ 0.* 
% Samaniha Fox Strip Poker 30,-- DM # 
5 2 2 2 2 2 2 5 5 


E20 5 5 5 2 2 2 2.2; 
% BEYERT - EBV-SERVIGE (BES) # 


= * 
Wen DFU-Kompleitpaket 180,- 4 


X Aushwaremaus (C64/CPC) 160,- # 
z ushwaremaus (C ) er 


% Sofort hestellan! Alles klar! x 
#*BES PF.1159 4030 Ratingen 1% 
EEE En Eh, 


Ahınua han 
%* Analle C-16/116 USER %* 
# Wersuchtfürseinen C-16/ #* 
% 116 super Software oder # 
%* Hardware. Tausch, Ver- #* 
* kauf, evt. Ankauf. Info ge- # 
%* gen Rückporto bei: #% 
%* U. Kriewett, Thürmchens- ® 
%* wall 71, 5000 Köln 1, Tel. # 
% 121634. Aura 


C64 Programme, Hilfspro- 
gramme und Spiele auf Kasset- 
te. Info gegen Rückumschlag 
(1,40). Jedes Programm 2,50 
DM. Wolfgang Schreiner, In der 
Laach 27, 5400 Koblenz 33. 


Software für CPC 464 auf Cas- 
sette. Flugsimulator 737, 20,-; 
Django, 10,-; Satellitenber- 
gung, 5,-; Grafikprogramm 5,-; 
Lottozahlenberechnung, 4,-. 
Lieferung erfolgt innerhalb 4 
Tagen gegen Vorausscheck/ 
Schein/Briefmarken frei Haus. 
F Hermes, Zum Sandborn 57, 
5530 Gerolstein. 


% Kleinanzeigen Yr Kleinanzeigen % Kleinanzeigen % 
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Schneider-CPC-Programme 
aus Eigenentwicklung zu gün- 
stigen Preisen erhalten Sie bei 
Friedrich Neuper, Postfach 72, 
8473 Pfreimd. Fordern Sie ein- 
fach das kostenlose Info an. 
Postkarte genügt. 


C-16, C-116 Superspielel « a« 
Info gegen Rückporto bei Han- 
nes Kaltenbach, Prielmayerstr, 
16, 7990 Friedrichshafen 1 


Vokabeistar C-16/C-116 
leichte Bedienung durch 
Menue — deutsche +fran- 
zösische Zeichen-Abfrage 
nach dem bewährten Kar- 
teikartensystern - gute Vo- 
kabeleditierroutinen vor- 
handen. Gegen Einsen- 
dung von 20 DM erhalten 
Sie Kassette + Bedie- 
nungsanleitung: 

M. Suer, Walgernweg 22, 
4410 Warendorf 1 


El Verkaufe meine VC-20 u 
El Programme: GYV-Robot- I 
Ehouse (Action 5 DM, EM 
El Geisthaus (Action) 6 DM, M 
® Schatz der Unterwelt + @ 
© (Grafikadvent.) 7 DM. BK- Mi 
EI Weltentor (Textadr.) 8 DM, I 
I i6K-Adv.: zentrax | 16 DM, I 
‚Mi Kaptain Kidd 12 DM, TV20 8 
'#8DM. Betal8 DM. FürPor- I 
Mto + Kassette 4 DM zum I 
Bi Preis. Keine Disklief, mög- I 
8 lich! M. Platt, Carl-Orff-Str. 8 
@ 4, D-8721 Hamhach. | 
BHERBEBHEBBBSBEBBE 


x CPC 464 Vokabeltrainer! *r 


viele Vokabeln und über 
100 unregelmäßige Ver- 
ben. Sie können noch 
beliebig viele Vokab, 
eingeben und abspei- 
chern. Programm auf 
Kassette nur DM 19,-. 
Zu bestellen bei: Thilo 
Schray; Altenbachweg 
8/1, 7120 Bietigheim- 
Bissingen. 


Be 2 222 232 22.2 2x2 2 
DEE HN 


Das Programm enthält 


SCHNEIDER CPC-464/664 
% COMMODORE 64 % 
vr COMMODORE VC-20 rk _ 
vorn? COMMODORE 16/116 * 
Krrrınz COMMODORE +4 k% 
Riesige Auswahl an Soft- und 
Hardware vorhanden. 

Infos bei: A. Bachler, Postfach 
429, 4290 Bocholt 


ar CI Aıh CA u 
selbstgeschriebene $pielpro- 
gramme für C-16/116. Info 
bei Wolfgang Dunczewski, 
Schmidtbornst. 18, 8230 
Frankfurt 80, 80-Pf.-Rückum- 
schlag beilegen! 


Club- 
Nachrichten 


C16/116 USER CLUB «a «« 
An alle C1i6/116 User! Wer 
möchte gerne mit mir einen 
016/116 Club gründen? Bitte 
melden bei: Sven Martin, Ost- 
preußenstr. 3, 3590 Bad Wil- 
dungen. 

PS.: Wensihr ideen zur Glubge- 
staltung habt, dann schickt 
diese gleich mit. 


Neue Anschrift: 

Der „Club der EDV-Füchse* ist 
ab sofort unter neuer Anschrift 
zu erreichen: 

CdEF, Hansjakobstr. 40 

7552 Durmersheim 


‚Schneider CPC CLUB Bay- 


reuth Wir suchen Mitglieder für 
unseren Glub; Softwarstausch 
und Sammelbestellunger; IN- 
FO-Tausch; Clubzeitung & 
schreibt an: Singh, Achim, Pot- 
taschhütte 10, 8580 Bayreuth, 
Tel. 09217/53205, 

ah 664 ; 464; 612 a 


Kurze Club-Nach- 
richten in Form ei- 
U a STIERFÄSTeT 
Allen ZEIT IKT 
Art eine Vielzahl 
von Anwendern. 


Senden Sie Ihre 


Mitteilungen ein- 

fach an: 
Ulla Zi Ete) 
Postfach 870 


3440 Eschwege 


Kaufgesuche: 


!Hard- u. Software 


 &-16 Software gesucht, Text- . 
Adressendatec 


verarbeitung, 
usw. sowie Drucker, Monitor, 
usw  Reschke, Joachim, 
Brahmsstr. 8, 4019 Monheim, 
= 02173/54340 


Suche Drucker für C116. Pa- 


pierbreite 21 cm/Einzelblatt- 
einzug. E. Wibben, Daimlerstr. 
68, 2850 Bremerhaven. 


Suche gebrauchten C84 und 
Floppy 1541! Biete bis 600 DM. 
Angebot an: Armin Pigulla, Me- 
denbreite 14, 2400 Lübeck 1, 
Tel. 0451/491874 


»n» SUCHE BILLIG eo 
Floppy-1541 oder 1570!!! 

Biete 350 DM oder 280 Fr.!! 
Suche laufend die neuesten 
Pror. auf Diskt!! Angebote an: 
Desarzens Renaud, Ringstraße 
56, CH-3327 Lyssach, &034/ 


453708, (Vorwahl für Schweiz; 


004. 


"Suche Floppy 1541 gut erhal- 


ten bis 200,- DM, Angebot an: 
Bodo Brämisch, Oberbergstr. 
19, 5541 Bleiaff. 


| Verschiedenes 


BÜCHER für alle Computer- 
Typen können Sie bei uns bs- 
stellen. Wir liefern auch jeden 
in dieser Zeitschrift genannten 
Titel. er Bücher Becks 
Postfach 10 
4250 Bocholt 


Wohntnnebenan ein CPC-Profi? 
Bin Einsteiger (54) und suche 
Kontakt u. Erfahrungsaus- 
tausch. Claus Piotrowski, Am 
Sandershof 31, 4350 Reckling- 
hausen. Ruft doch mal an. Tel. 
02361/498868. 


© ® ® Hallo C-54 und® 8 © 
VC-20 Besitzer 
Falls Ihr keine Lust auf ® 
langweiliges,  zeitauf- 
wendiges Abtippen von 
Programmen habt, kann 
ich Euch nur sagen: kein 
Problem. 
Für 0,02 D’M=2Pfpro 
Zeiletippe ich jedes Pro- 
gramm für VC20 + C64. ® 
Arndt-Holger Kiessling, @ 
Vierlingsir. 64, 6710 ® 
®@® Frankenthal/Pfaz. @® @ 


C-16/116, plus 4 
Commodore Sachbuch- 
reihe, Band 6. 
ROM-Listing (Deutsch) 
Erstklassig dokumentiert 
DM 49 + Nachnahme 
und Porto 
Karl-heinz Pflaum 
Schönblick 17 
5350 Euskirchen 27 


ich verwirkliche Ihr Traumpro- 
gramm. Sie müssen nur einen 
VG-20 haben. Schreiben Sie 
mir Ihre Vorstellungen und 
Wünsche. Suche Kontakte. Ga- 
bor Pec, Rheirauerring 86/1, 


' 7950 Rastatt. 
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programme 
Neu. Sonderzeichen werden durch Klartext ersetzt! 


Eingabe-Hinweise für Commodore C-16/116-Benutzer! 





chen abgedruckt. Alle Steuerzeichen werden in unseren 


Um Ihnen die Eingabe unserer Listings zu erleichtern, | a de Me 
urch Klartext, welcher die Taste kennzeich- 


werden zukünftig all G-t6/116-Listings ohne Steuerzei- 
Tastenhezeichnungen für Steuereodes 


in jedem Tronic-Magazin. 






TUERKIS 
PÜRPUR 
GRAUEN 


CONTROL-TASTE & 4 
CONTROL-TASTE & 5 
CONTROL-TASTE & 6 
CONTROL-TASTE& 7 
CONTROL-TASTE & 8 
CONTROL-TASTE & 9 
CONTROL-TASTE & 0 
COMMODORE-TASTE & 1 
COMMODORE-TASTE&2 
COMMODORE-TASTE & 3 
COMMODORE-TASTE & 4 
COMMODORE-TASTE & 5 
COMMODORE-TASTE & 6 
COMMODORE-TASTE & 7 
COMMODORE-TASTE & 8 
CONTROL-TASTE ZUSAMMEN MIT 
DEM NACHFOLGENDEN ZEICHEN. 
{Z.B. CTRLA ENTSPRICHT CTRL & A) 
CONTROF-TASTE & 
CONTROL-TASTE & 


TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTE & TASTE NEBEN RECHTEM SHIFT 
SHIFT-TASTE & 2. TASTE GANZ RECHTS OBEN 
SHIFT-TASTE & TASTE GANZ RECHTS OBEN 
2. TASTE VON GANZ RECHTS OBEN 

TASTE GANZ RECHTS OBEN 

TASTE GANZ RECHTS UNTEN 

SHIFTTASTE & TASTE UNTEN RECHTS 
LEERTASTE (GROESSTE TASTE} 
FUNKTIONSTASTE F1 

FUNKTIONSTASTE F3 

FUNKTIONSTASTE FS 

FUNKTIONSTASTE F7 

FUNKTIONSTASTE F2 

FUNKTIONSTASTE F4 

FUNKTIONSTASTE F6 

FUNKTIONSTASTE F8 

CONTROL-TASTE & 1 

CONTROL-TASTE & 2 

CONTROL-TASTE & 3 


CURSOR UNTEN 
CURSOR HOCH 
CLEAR SCHIRM 
EINFUEGEN 
CURSOR IN ECKE 
DELETE 

CURSOR RECHTS 
CURSOR LINKS 
LEERZEICHEN 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
FUNKTIONSTASTE 
SCHWARZ 

WEISS 

AOT 


INVERSE EIN 
INVERSE AUS 
ORANGE 
BRAUN 
HELLROT 
DUNKELGRAU 
MITTELGRAU 
HELLGRUEN 
HELLBLAU 
HELLGRAU 
CONTROL 


LIG.RED 
DGREY 
MOREY 
LIG.GREEN: 
LIG.BLUE 
HGREY 
CTAL 


FLASHON 3BINKEN EIN 
FLASH OFF 3BINKEN AUS 


Achtung: Einige Listings enthalten das Zeichen *-”, dieses Zeichen entspricht dem Pfeil nach links (Taste ganz links oben) 
das Zeichen ” A ” steht für den Pfeil nach oben, 
das Zeichen "N" steht für das (eng!.) Pfund-Symbol (Taste neben Restore) 


Folgendes Beispiel demonstriert die Arbeitsweise unseres Systems: 


STANDARP AUSDRUCK: 


10 A$="TEST":PRINT"LARERRITTHALLONEEN EUTE !"=PRINT"TRONIC VERLAG" 
20 FRINT"LSEIENDE" 


UNSER NEUER AUSDRUCK DER GLEICHEN ZEILEN: 


10 AF="TEST"SPRINT"{ELEAR RIGHT3 DOHNZ3 R 
EDYIHALLOLRIGHT2 BLUEYLEUTETSPACE}!"SPRIN 
T"TRONIGTSPACEI VERLAG" 

20 FRINT"£{CYAN PURPLE GREENYENDE" 


x34> 
<1177? 


net, ersetzt, Eine Tabelle der Tastenfunktionen finden Sie 


(TRONIC-NORM) 


Wie in dem Beispiel zu erkennen ist, wird das Herz-Sym- 
bol durch das Wort CLEAR ersetzt. Dies bedeutet, Sie 
miissen die Taste CLEAR drücken, um das Herz-Symhol 
zu erzeugen. Sollten Sie einmal nicht wissen, welche Ta- 
ste gemeint ist, hilft Ihnen ein Blick in ungere Tastenta- 
belle bestimmt weiter. 

Um imListing Tastenbezeichnungen von Graßk oder nor- 
malen Texten zu unterscheiden, werden alle Tastenkenn- 
zeichnungen in geschweifte Klammern gesetzt. Diese 
dürfen selbstverständlich nicht eingegeben werden. 
Auch Leerzeichen in- nerhalb geschweilter Klammern 


dienen nur zur Trennung einzelner Tastenfunktionen und 
dürfen ebenfalls nicht eingegeben werden. Um die Ta- 
stenfunktionen noch besser hervorzuheben, werden die- 
se in unterstrichener Kursivschrift{Schrägsehrift) abge- 
druckt, 

Steht hinter einer Tastenfunktion eine Zahl, welche eben- 
falls unterstrichen ist, bedeutet dies, daß die leizte Ta- 
stenfunktion mehrmals betätigt werden muß, Die in un- 
serem Beispiel abgedruckte Funktion RIGHT3 bedeutet, 
daß die Taste RIGHT (Cursor rechts) 3 mal hintereinander 
betätigt werden muß, Auch einzelne oder mehrere Leer- 


Compute mi 


zeichen innerhalb von Anführungszeichen werden auf 
diese Art gekennzeichnet. Das bislang übliche Abzählen 
einzelner Zeichen entfällt somit völlig. 
Alle Zeichen außerhalb von den geschweiften Klammern 
werden normal abgedruckt und auch eingegeben. 

Aut den ersten Blick hört sich das sicher etwas kompli- 
ziert an, ist jedoch in der Praxis ganz einfach. Wenn man 
sich erstan die in Klartext geschriebenen Steuerzeichen 
gewöhnt hat, wird man den großen Vorteil dieser 
Schreibweise erkennen. 
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Die Arbeitsweise des C-16/116 Check- 
summers entspricht weitgehend der VC- 
20- und C-64-Version und braucht des- 
halb nicht näher erklärt zu werden. Da 
auch der C-16/116 nicht den größten Spei- 
cher besitzt, wurde hier die Methode der 
VC-20-Version gewählt, und das Maschi- 


nenprogramm in den Kassettenpuffer ge- 


legt. Dies hat den Vorteil, daß kein Basic- 
Speicher verlorengeht. Der Nachteil be- 
steht darin, daB nach der Aktivierung des 
Checksummers keine Kassettenoperatio- 
nen durchgeführt werden dürfen, da diese 
unweigerlich zum Systemabsturz führen. 
Um die Kassettenoperationen wieder zu- 
zulassen, muß der Ghecksummer durch 
die beiden folgenden SYS-Aufrufe abge- 
schaltet werden: 
SYS 62158 : SYS 33047 

Aktiviert wird der Checksummer mit SYS 
818. Die Funktion und Arbeitsweise ent- 
nehmen Sie bitte der C64-Checksummer- 


Checksummer 0G Version 1.0 für C-16/116 


Schirm eine Prüfzahl. Vergleichen Sie die- 


die zusätzlichen Steuerzeichen 'FLASHON’ 
(CTAL-) und ’FLASHOFF {CTAL) welche 
ebenfalls durch Klartext ersetzt werden 
(s. Tabelle Tastenbezeichnungen). 


programme 





se mit der Zahl im Heft hinter der Zeile, 
Stimmt die Zahl überein, ist die Zeile rich- 
tig eingegeben. 


Arbeitsweise und Aufbau unseres Checksum- ! Auf diese Weise können Sie das gesamte 


mers: 
Unser Ghecksummer besteht aus einem 
kleinen Maschinenprogramm weiches als 
Basic-Loader abgedruckt ist. 


Tippen Sie diesen Loader ein und spei- 
chern Ihn auf Kassette oder Diskette, denn 


Sie können ihn zukünftig immer wieder 


benutzen. 


Der Start erfolgt durch den Befehl „RUN“. 
Nach kurzer Zeit meldet sich der Rechner 
mit der Meldung „TRONIG ..“, Der Check- 
summer ist nun aktiv und 'man kann ein 
beliebiges Tronic-Listing eingeben. Nach- 
dem eine Zeile mit RETURN abgeschlos- 


Listing schnell und fehlerfrei eingeben. 


Interessant ist auch, daß bei der Eingabe 
von Zeilen die üblichen Abkürzungen be- 
nutzt werden können, ohne die Check- 
summe zu verändern. Leerzeichen außer- 
halb von Anführungszeichen werden 
ignoriert, da diese auf die Ausführung der 
einzelnen Befehle keinen Einfluß haben. 


Für alle, die nicht gerne. ablippen, ist der 
Cheeksummer unter‘ folgender  Bestellnum- 
mer zu beziehen: 


DV 10.K Kassette 10. DM 
DV 10.D Diskette 15 DM 





















































Version. Eine Ausnahme beiC-16/116sind | sen wird, erscheint links oben auf dem 
1 REM HRS HSHHHHSHHISIRISHIHRIEISIEIHSIHIHIHIHHIENENE <4> &06130 PRINT” IDOHR>SAVE/LOADISPACEI ISTISR 
| 2 REM # = <99> ACEIWAEHREND {SPACE DERTSPACEICHECK-" <&1> 
3 REM # C1&-CHECKSUMMER *  <i40> &01406 PRINT"SUMMERTSFALCEHAKTIVISPACEHIST 
4 REM # * <101> „ [SPACE?NICHT {SPAGEIMOGEGLICHTSPACE} !* <221> 
5 REM # COPYRIGHT BY FRANK BRALL * <182> &0150 FRINT"BOHN}BEACHTENTSPACEISIETSPA 
& REM # *  <105> CE+IDIETSPAGEIHINWEISE {SPACE} INISPACEIDEN 
TREM*# <«c) 19.04.86 * <iBi> Ü 2 <189> 
B REM «& *  <105> 60170 PRINT"HEFTEN{SPACEITOMPUTETSPACEIM 
9 REM RBHsHHHHRBIHHRRHRHHHSEHENEN EHI <12> IT{SPACEFUNDTSPACEICOMPUTRONIC" 2354> 
10 PRINT"ICLEAR DOWN SPACE2I444PLSPACEZ} 40180 PRINT" £DOKN}VIELTSPACE}SPASSCSPACE 
CHECKSUMMERTSPACEMIRLSPACEH 1. OTSPACEZI 9 3! {SPACE} (AUTOR=SF. BRALL/4443SONTRA) <116> 
| 99LCDOHN}" <103> 60190 FOKE 814,147:POKE915,251ıF0KE Bi, 
| 11 PRINT"{SPACE2344TSPACE2ICOPYRIGHTISPA 147:P0KE 817,251 <109> 
CEIFRANKESPACE}BRALLISPACEZ} $4CDOHNF" <110> 0195 SYS BIR:END <177> 
12 PRINT" (SPACES>FUER<SPACEHTRONIT-VERLA &0201 DATA A9,3D,80,02,03,49,03,8D,03,03 
G" <19b> „60,42,FF,86,3A,20,59,88,84,3B, 1851 <5A> 
&0000 DIMH(75) :FORI=0T09 <123> 60202 DATA B4,30,20,73,04,AA,FO,EF,90,09 
60010 H(48+T1)=I:H(45+T)=I+101 NEXT <145> ,20,53,99,20,79,04,40,D7,8B5,20, 2018 <28> 
60020 FORI= 818 TO 1010 ıREADA$ <151> 60203 DATA 3E,BE,20,53,87,894,0B,A7,00,8D 
60030 H=ASC(LEFT$(AS,1}) <234> „E4,03,9D0,E5,03,80,E6,05,18,A5, 2076 <40> 
50040 L=ASE (RIGHT$(AS,1}) <2535> 60204 DATA 14,65, 15,890,E6,03,AO0,FF,C8,Bi 
&0050 D=H(H) #16+H (L) :S=S+D: POKEI,D <13> ‚3B,F0,20,09,22,D0,0A,AD,E4,03, 2508 <i8> 
60060 A=A+1: IFASZOTHENNEXT: A=-1 <97> 60205 DATA 49,01,80,E4,03,B1,3B,AE,E4,03 
60070 READV:z Z=Z+1: IFV=STHEN60085 <177> „D0,04,09,20,F0,E4,EE,E5,03,AE, 2644 <87> 
60080 PRINT"DATAFEHLERTSPACE} INSPAGE+FZE 60206 DATA ES,03,18,Bi1,3B,&D,E4,03,8D,E&6 
ILE{SPACE}: "3 60200+Z:END <337% ‚„03,CA,D0,F4,40,76,03,39,20,39, 2204 <107> 
60095 IFA<OTHEN&0109 <116> 60207 DATA DE,SE,E2,03,80,63,05,A2,00,AQ 
60090 S=0:A=0:NEKXT <246> ‚„00,18,20,39,D8,A9,58,20,D2,FF, 2365 <115> 
60100 PRINT"{DOUN23* <172> 60208 DATA A9,00,AE,E6,03,20,5F ,A4,99,5D 
60110 PRINT"CHECKSUMMERTSPACEIEINTSPACEI . „20,D2,FF,20,08,FB,20,08,FB,AC, 2380 <1697> 
={SPACEISYSTSPACEIBISIDAUNF" *140> 60209 DATA E3,03,AE,E2,03,18,20,37,D8,A2 
60120 PRINT"CHECKSUMMER{SPACEFAUSTSPACEI „00,8&,FF ,40,36,87,00,00,00,00, 1778 L133> 
=(SPACEISYSTSPACE}IA21SSH+SVSTSPAGEISSOATT 60210 DATA 00,00,00,00,06,00,00,00,00,00 
DOUN}" 212253 „00,00,00, 0 nr <104> 
6/86 CSompute mi 
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Affe nWwu f Ein Spiel auf dem Commodore 16/116 


DEREK TESERES JE ESIELEBEIET Le ANSEHEN EFEENN ESS IE RT ENTE 
kannes unter der großen Kategorie „Geschicklichkeit“ einreihen, undes bedarf daherschon 
einiger Übung des Spielers, um die gestellte Aufgabe zu meistern. 





In diesem Spiel ist Ihr Standort unterhalb eines Affenkäfigs, in 


dem sich ein wildgewordener Artgenosse unserer Vorfahren auf- 
hält und der nach Ihrem Leben trachtet. Er setzt Sie nämlich un- 
ter Dauerbeschuß mit Wurfgeschossen, die den Boden nicht be- 
rühren dürfen, wollen Sie nicht ein Opfer seiner Rage werden. Mit 
Hilfe eines Netzes sollen Sie versuchen, diese Wurfgeschosse 
aufzufangen. Gelingt Ihnen dies, erhalten Siefür jedes gefangene 
Wurfgeschoß 10 Punkte gutgeschrieben, gelingt es Ihnen aber 
nicht, verlieren Sie eines Ihrer 3 Leben. Bei einer erreichten 
Punktzahl von 100 werden Ihnen über einen Sonderbonus 500 
Punkte hinzugezählt, und Sie erreichen einen neuen Level, Dies 
gilt auch bei 1000 erreichten Punkten. Mit jedem Level steigert 
sich natürlich auch der Schwierigkeitsgrad des Spieles. 
Steuern können Sie das Spiel mit der ESCAPE- und der DELETE- 
Taste. 


100 REM Brei 5 <ZLIL> 
110 REM ####* SArFFEN-KURF #8 <200> 
120. REM ee HR z231> 
1350 REM #r#* “une <C755 
146 REM HB BRS HEHE 7 <251> 
150 REM *#*# ANDREAS FÜLEFEA “#8 X125> 
1650 REM RBB SL 
170 REM x##% 5470 ANDERNACH 1 “rt <140> 
180 REM PRERHRHEB RIESEN 7 <I> 


170 REM ##°# £c1 1986 “#4 <225> 
200. REM Beer BRRRRRRRIRIE SD 
210 COLORO,1 975 
220 COLAR1,2 r #113? 
230 TOLOR4,2 x129> 
240 FORES&,A7 »145> 
250 V=63280: VOLB «1195 
Z60 FOKEY+IB,PEEK (V+18) ANDZFI 673 
270 POKEV+17 ,PEEK{V+19) ANDZORAS <a4> 
280 FORT=832T0849:READA: FDKET „A: PR=FR+Ar 

NEXTT 172 
270 8Y5832 £ <146> 
500 FÜRT=12800T013000: READA= IFA>-1THENFO 
KETJAsSNEXT 2527 
S10 REM EHE HEHREHERTEHRRHREHRÄENHNERERE <hHO> 


320 REM *## DATAS FUER NEUE ZEICHEN ### #133> 
330 REM se RHEIN N <a0> 
340 DATA162,0,189,0,208,157,0,48,137,0,2 
09,157,0,49,202, 208,241 ,9& <120> 
350: DATA214,214, 214,214, 2142,214,214,214 x<158> 
340 DATA0Z4,1265,024,126,187,187,187,187  <100> 
370 DATA187 ,060 ,036,056,056,056,0936, 056  *220> 
580 DATA248,120,056,048,000,000,009,000 <x115> 
370 DATA170,170,170,170,170,170,170,170  x54> 
400 DATA255,056,036,024,024,036, 066,255  $92> 
410 DATAO00,000,000,000,000,120,120,000  x166> 
420 DATA255,153,255,153,255,153,255,153  <172> 
430 DATA255 , 255,255 , 254 ,254 ,254,252,252 <174> 
440 DATA252,248,249,2498,240,,240, 240,224 «1893 
450 DATA224,224,192,192,192,128,120,128 sal> 


460 DATA255,255,255,127,127,127,063,063 
470 DATA0653,031,031,031,015,015,015,007 
480 DATA007 ,007,003,003,005,001,001,001 
470 DATA000,074,014,027,031 ,027,060,124 
S00 DATA252, 236,204, 140,004 ,002,001,001 
510 DATA192,193,195, 179,207 ,207 ,223,126 
520 DATA000,000,000,000,000,049,192,192 
530 DATA000,000,000,000,129,024,001,170 
540 DATA-1 

550 FRINT"COELEARF" 

560 REM reiste 

570 REM ###+ TITELBILD #** 

E80 REM HHHRHHHBAHHHRHARER 

570 COLOR1,8,2=:PRINT"{DOWN2 SPACESI——IE 
PACE2} SPACE) SPACE? ISPAC 
EI—ISPACEIZI—" 

500 FOLOR1,98,2EPRINT"SPACESI-TEPACETI—T 
SPACEI—-{SPALESE—TSPACEST-ASPACEFSI — TSF AG 
E2I—" ; ö 

&10 TÜLORI „8,3: PRINT" {SPACEFI-ISPACEFI—T 














Te AT m En 


IASPACEI—" 
620 COLOR1,B,4: PRINT" ISPACESI-TSPAGEI?-T 
FTSPACEI—" 
630 COLOR1,8,5: PRINT" {SPACES} ISPACE 
3 ——LSPACEFI— ISPACEZI—ISPACESI -TEPAE. 
EI-ISPAREI—" 
6409 COLOR1,0,6: PRINT" TSPACES?-ISPACEZI—L 











„Auer ig Seen TS A I re HELD 


3-ISPAGEI—" 

650 COLOR1,8,7: PRINT" ISPACESI-ISPAGEZSI—T 
SPACEI-—-ISPAGESI-ISPACESH-TSPACESI—-ISPACE 
2" 





&60 COLORI,2, 7: PRINT" ISPAGESI-SPACEBI—T 





SPACEI -ISPACESI -ISPACES} 
ACEZI—" 

670 EOLORI 42,72 PRINT" {DOHNI SPACESF—{SRA 
CE23—ISPACEZ?—{SPACEI -TSPACESS- SPACE — 
—tSPAGCE2} " 

630 COLORi „8,7: PRINT" TSPACESI-TSPACEZI—T 
SPACEZI-SPACE+—TSPACEII—ISPACEY—(SPACE2 
I—tSPACEI—" 

&970 COLOR1,8,6:PRINT"{SPACESI-TSPACEZI—T 
SPACE2I-TSPACEI—-TSPACE3I—TSPACEI—-ISPACEZ 
I—ASPACEI—" 

704 COLOR1,8,5: PRINT"{SPACESI-TSPACE2I—T 
SPACE2Y--TSPAGEI -TSPACEZI—TSPACEI—TSPACE2 
F-AÄSPALCEI—" 

7ı0 COLOR1,8,4:PRINT"tSPACESI—-TSPACE2I—T 
SPACE2Y-TSPACE+—TSPACEIF—ISPACEI ——iSPAC 
E23 —" 

cot_arı „8,3: PRINT" {SPACESI-ISPACE2I—T 
SPAGE2Y-TSPAGEI—TSPACEII—SPACEI— SPACE 
3ı—* 

730 COLOR1,9,2: PRINT" {SPACESI—SPACE2I—L 
SPACE2Y-ISPACEI—TSPACE3I—-TSPACEI— SPACE} 
ASPMEZI-" 

740 COLOR1 ,8,2:3PRINT"SPACESI-ISPACE2I—L 
SPACE2I-ISPACEI—TSPATEIZI-—KSPACEY— {SPACE 
FL{SPArEI—" 


LSPACEI— {SP 





























Sompube mik 


«165> 
<128> 
<144> 
<74> 
<34> 
<356> 
<87> 
<24> 
<142> 
<70> 
<165> 
<220> 
<185> 


<54> 
<55> 
<231> 
<247> 
“1997 
<25> 
<199> 
<57> 
<150> 
x185> 
<189> 
<193> 
<201> 
“137> 
45? 


<215> 
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750 COLOR1,8,1: PRINT" ISAACEFF-— ISPACEI— 
ISPAGEI} TISPAGEZI-ISPACEZILSPACEI—" 
760 REM RER 

77G REM #*## TITELMUSIK ##* 

7890 REM HB HH HEN 

770 RESTDREBSO 

800 READA,B:GETA$: IFAF=" SPACE} " THENA=-2 
810 IFA=-1THEN?FO 

820 IFA=-2THEN1020 

850 SQUND2,A,B 

840 GOTOBOO 

850 DATA169,9,345,9,453,9,345, 9,453, 9,59 
6,7,453,7,596,7 

850 DATAS85,9,976,9,693,7,737,9,685,7,73 
97,7,8109,9,737,9 

870 DATAB10,7,954,7,010,7,854,7,881,9,85 
4,9,8981,7,717,9 

880 DATABB1,7,017,9,9397,9,917,9, 939,9, 95 
3,9,739,9,917,9 . 

890 DATA?S7,9,917,7,881,9,917,7,881,9,85 
4,7,0981,7,854,7 

700 DATAB10,7,854,7,810,7,739,9,810,9,73 
9,9,695,7,739,9 

710 DATASSS,7,596,7,685,9,576,7,4593, 9,59 
6,7,463,9,3545,7 

920 DATA443,9,345,9,169,7 

730 DATA843,9,929,9,934,97,739,9,911,9,83 
4,9 

940 DATA798,9,891,7,834,9,759,9,97114,9,83 
4,9 

950 DATAF29,7,643,9,834,9,911,9,739,9,83 
4,7 

280 DATABS1 ,7,778,7,954,7,711,7,739,9,853 
4,9 

970 DATASZ4,9,722,30,—1,0 

9780 BETAS: IFA$=" TSPATE}"THEN1020: ELSEGOT 
0780 

9770 REM EHRE HURURNERERR 

1000 REM ##* SPIELFELD *+* 

1010 REM #ranx rare 

1020 COLORI „2:PRINT" TELEARY" 

1030 FORA=0TOZT:CHAR1,0 „A, "IBGREYI——— 
—iSPACE2S} "=NEXTA 

1040 CHAR1,0,24,"{HHITE3 











1050 CHART „7,1, "PUNKTE: {SPACEIOTSPACESIL 
EBEN: {SPACEIZ" 

1060 FRINT"IHOHE RIGHTI DOHNZYLEVEL: {SPA 
CE? L{SPACEFIREKORD: "zRE 

1070 CHAR1,7,4, "IHGREY} 





1080 GHAR1,10, 8, "TBLLEI- EI TI TI TET TI TI II 
HL Ile Ing 

1090 CHARI,10,97, "4 | SSPALCEFF | TBPAGESY] {ES 
PACE#4} | | -," 

1100 CHAR1,109,10, N] 1 SSPAGESF | TSPACESFI X 
SPACE43 | | “" 

1110 CHAR1,10,11,"{SPAGE3- | TSPACE4? | ISPA 
CE4> | TSPACE4S( 4“ 

1120 CHAR1,10,12,"{BLUE SPAGE>|_| XHHITEIT 
Sr TB ÜEN U 

1130 CHAR1,10,13,"TYELLON SPALCEYN| SPACE 
BI | TSPACESY | SEPACES> | “" 

1140 CHAR1,19,14,"TSRAGEEF- ISPAGESH SPA 
CESY | {SPACEI> [" 

1150 CHAR1,10, 15, "ISPACEZILAFPALESF| CEPA 
CE4} | TSPACESY-," 

1160 CHAR1,10, 14," {[SRACE2INTT 
_ıH 

1170 CHAR1,10,4,"{YELLORIBISPACEITMISPA 
CEI>KESPACET? ATSPACEII ES" 

1150 CHAR1,10,7," T SSPAREI! | -TSPACEZI | —i 
SPACE2F | -KSPACEZFT " 

1190 M=18:1.1=F:LE£&=1:Ve1:FU=0:0=14:B=14:E 
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<123> 
<139> 
<196> 
<160> 
<116> 
<1B1> 
“2127 
<99> 

<111> 
x148> 
<75> 

<141> 
<220> 
zz11> 
<151> 
<75> 


<158> 
<250> 


xa0r 
473> 
<BAa> 


<183> 
“29> 


<I> 
<84> 
x9I> 
<-104> 
<4> 
<146> 
62? 
<a? 
<Z218> 
“1489> 
<44 > 
x213> 
x1277 
<ial> 
*175> 
xge> 
<B9P% 
<149> 
s11> 
EP3E> 


«142% 


programme 


=1 

1200 REM es 
1210 REM ** STEUERUNG UEBER {ESCHDELI *%* 
1220 REM HH ER EHIHIHÄHIFIHIHII IE 
12350 GETA$ 

1240 IFAF=CHRE (27) THENM=M-5 

1i2SO IFAF=EHRE (70) THENM=M+S 

1240 IFMS1LZTHENM=I3 

1270 IFM>24THENM=23 

1280 IFAF=""THENLSOO 

1290 CHARi ,M-5,22, "tSPACE LEFT. SPAL 
E2F"SCHART ,M+5, 22," {SPACE LEFT SPAZ 
EZ3"SCHÄRI ,M,22 VIHHITEIMTDOHN LEFTF|—": 
SOTO131D 

1309. CHAR1,M,22, "IHHITEI@TDOHN LEFTI I —"r 
CHAR1,M, 22, "CHHITEY@IDOHN LEFT}\—":CHARL 
„M,22,"{HHITEIACDOHR TEFTY |" 

13109 IFE>Z3STHENGOSUB1 780 

1320 IFE>SANDE<Z4THEN1S1O 

15350 REM Wake 

1340 REM #* AFFE ##* 

1550 REM Xena 

1550 £E=1 

1370: CHAR1,C,B,"{BGREY. SPAGE2 DOWN LEFTZ 
SPACEZ}" 

1380 A=INT (RND{ 1) 4A) +1 

1590 IFA=1THENB=19: IFA=1 THENC=14 

1409 IFA=2THENB=10: IFA=ZTHENC=19 

1410 IFA=3THENB=10: IFA=3STHEND=24 

1420 IFA=3THENB=14: IFA=4THENC=14 

1450 IFA=STHENE=14: IFA=STHENG=1F 

1440 IFA=&THENB=14; IFA=SSTHENG=23 

1450 CHAR1,C,B,"F{CYAN?®-{DOHN LEFTZYT" 
14540 REM HH HERE 

1470 REM ** WURFGESCHISS #* 

1480 REM ee re 

14909 E=B+2: E=sE+Y: IFLE=2ZTHENV=1.5 

1500 IFLE=STHENV=2: IFLE=1THENV=1 

1510 CHAR1,C,E-V,"TSPACEI"ECHARY ,C,E,"IH 

#HITE}_" = SODUNDI „800,2: CHAR1,C,B, "ICYAN}®@,/ 
XDOHN LEFT2Y T"sE=E+V 

1520 IFE>12THENGOSUB1S5BO 

1530 IFE>18&THENSOSLBISFO 

1540 IFE=I23ANDE=<Z4THEN1550: ELSEGOTOLS& 
[e} 

1550 IFC=M+1THENGISUBI1630 

15A0 IFEFZ4THENE=1:ELSEGOTO1230 

1579 GDT01230 

1580 CHAR1,10,12,"TSPACEI_| CHHITEI 

,mmiBiPE} ns "sRETURN 

1590 CHAR1,10,1A,YiCYAN SRACE2ZYN 
—-——USRETURN 

1600 REM Auer 

1510 REM ##* AUFFANGEN ** 

1629 REM Hausen 

1630 SGUNDI ‚500,2: SOUND1 ‚600 ,2: SOUNDI „70 

0,2: 5OUND1,200 , 2: SDUND1 ,900,2 

1640 E=1 

1559 FU=PLÜH+10r: CHAR1,0,22,"{SPACEI" 

1660 IFFU=100THENFU=SFU4+-S00: SOUND2, 700,10 
1570 IFFU=10GOORPU=2ZI00DRFU=S390OOTHENPU=F 
U+500: SOUND1,700,10 

1580 IFPU=40090RFU=-SÜQUOORFU=4000THENPU=P 
U+5300: SILINDI „700,10 

1599 IFPU>1OO0THENLE=Z 

1700 IFPU>1GOOTHENLE=F 

1710 FRINT"{HONE KHITE DOWN RIGHTI16Y"z3PU 

1720 PRINT"{HONE DOHNI HHITE RIGHTISY"sL 

E . 

1730 CHAR1,M+1,21,"ISPACEY” 

1740 RETURN 

1759 REM Bee 
1780 REM *# VERLUST EINES LEBENS ## 
1770 REM Mara EEE 





BOUN 
DOAN 




















GCompube mib 


“1495 
<185> 
<31F 
x205> 
975 
“2> 

<1989> 
ta -P 
“822 

1445 


1233 


<215> 
<142> 
#173> 
*112> 
x95> 

1323 
1453 


737 
<99> 
<897 
s212> 
“1633 
x207> 
“Fur 
2773 
<133> 
x74> 
24775 
a4 
<x170> 
<102> 


<40> 
a9: 
<109> 


«323 
<30> 
IS? 
x101> 


<A7% 


<21> 
ERSL> 
<133> 
<is> 


*202> 
<170> 
<110> 
5377 


<115> 


<242> 


s135> 
<B> 
<177> 


<119> 
<31> 
<“I6> 
xa9> 
<48> 
“89> 


tips & tricks 























1780 CHAR1,C,23,"_":CHAR1,C,22, "TSPACEI" <45% 1840 IFLI=OTHENSOTN1850: ELSERETURN £133> 
1790 FORA=1023T0BS0STEP-10 <i81> 1850 IFPLU>RETHENRE=PL <d5> 
1200 SOUNDS,A,1:NEXTA 2200> 1860 CHAR1,12,19,"IYELLTH RVSOM ELASHON? 

Ey“ i Tg IVISPALEIETSPACEHRERVSOFE FLASHOFF}” x186> 
1820 LI=LI-1:E=1 <B9> 1970 GETAS: IFAS=" SPACE} " THENSSO: ELSE187 

1830 PRINT"CHHITE HÖHE DOHR RIGHT293"sLI «50> <83> 








lıips & Tricks tür den Commodore 16/116 


Cursor setzen 


Ein altes Problem der Commodore Rech- 
ner ist der fehlende Befehl zur Positionie- 
rung des Cursors. Zwar gibt es beim G-16/ 
116 den Char-Befehl, jedoch läßt sich hier- 
mit nur ein Zeichen ausgeben. Der eigent- 
liche Cursor bleibt an der alten Stelle. Es 
fehlt ein Befehl, der es erlaubt, ohne fol- 
gende Ausgaben den Cursor direkt auf ei- 
ne beliebige Bildschirmposition zu setzen 


(zum Beispiel, um anschließend aus der 


zugehörigen Position im Bildspeicher mit 
„PEEK“ das Zeichen an der momentanen 
Bildschirmposition zu lesen). 


In der sogenannten „Zeropage" des C-16/ 
116 existieren zwei Speicherstellen, in de- 
nen die Spalte und Zeite der aktuellen Cur- 
sorposition festgehaften ist (Spalte in 202, 
Zeile in 205). 


Durch Veränderung der Inhalte dieser 
Speicherstellen kann der Cursor auf eine 
beliebige Position gesatzt werden. An- 
schließend muß jedoch noch eine Be- 
triebssystemroutine mit $Y$ 55464 aufge- 
rufen werden. Erst nach diesem Aufruf ist 
dem Betriebssystem die neue Situation 
bekannt. 


Pen Not macht 
erlinderisch 


Auf der Suche nach einer Möglichkeit 
dem begrenzten Speicherplatz des C-16 
ein Schnippchen zu schlagen, bin ich auf 
die folgende interessante Idee zum Ein- 
sparen von Speicherplatz gestoßen: Daß 
Integervariablen (z.B A%) in nur 2 Bytes 
{im Gegensatz zu 7 Bytes bei normalen 
Variablen) abgelegt werden können, ist 
den meisten Basicprogrammierern be- 
kannt. Dieser Vorteil kommt allerdings 
erstrichtig zum Tragen, wenn man im Pro- 
gramm größere Felder verwendet. Probie- 
ren Sie mal 
CLR : DEM A(100) : PRINF FREIX) 

und vergleichen Sie dann mit 
ELR : DIM A%f100): PRINT FRE(X) | 
Bleibt das Problem, daß aus Genauigkeits- 
gründen meist einige Nachkommastelten 
nötig sind, Integervariable aber nur ganz- 
zahlige Werte aufnehmen können. Kennt 
man jedoch in etwa den Wertebereich der 
Zahlen, die das Feld aufnehmen soll, kann 


man dieses Problem umgehen, indem. 


man nur die reine Ziffernfolge in dem Inte- 
gerfeld ablegt und diese erst bei der Wei- 
terverarbeitung wieder in die ursprüngli- 


| che Zahl zurückverwandelt. Dabei muß 


gewährleistet sein, daß der Wertebereich 
für Integerzahlen (-32768, +32767) nicht 
verlassen wird. 


Folgendes Beispiel soll die Vorgehensweise ver- 
deutlichen: 


1. Schritt 

Der im Integerfeld abzulegende Wert-wird 
mit allen Nachkommastellen berechnet 
und einer Variablen zugewiesen. 

A=... (Ergebnis z.B. A = 4.926538) 


2, Schritt 
Der Wert wird auf 3 Nachkommastelien 
gerundet und mit 1000 multipliziert; die 


.| entstandene Ziffernfolge wird dem Inte- 


gerfeld zugewiesen. 
AAtI) = INTE A * 1000 + 0.5) 
(z.B. AYı(45) = 4927) 


3. Schritt 

Vor der Weiterverarbeitung wird die Zif- 
fernfolge in den ursprünglichen Wert zu- 
sückverwandelt. 

B = A%(l)/1000 (z.B. B = 4.927) 

Mit Hilfe dieses kleinen Tricks istes gelun- 
gen, ein Programm zum Zeichnen von 
dreidimensionalen Funktionsflächen in 
dem 2k „großen“ Basic-Speicher des C- 
16 (bei Verwendung der hochauflösenden 
Grafik) unterzubringen. 





INVERS-UNILITY für den C-16/116 


Verbindung mit einer FiLL-UTILITY stellt 


Das Programm INVERS-UTILITY erlaubt | befindlichen normalen Zeichen erschei- 


es, beliebige Bildschirmausschnitte zu in- | nen revers und alle reversen Zeichen er- | dieses Programm darum eine nützliche 
verlieren, d.h. alle in diesem Ausschnitt | scheinen- wieder normal. Besonders in | Hilfe dar. Nach dem Eingeben und Starten 
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IE MA a A re in 


p» 


des BASIC-Loaders (das Listing) -wird zunächst das Maschi- 
nenprogramm eingelesen, Danach erscheint auf dem Bild- 
schirm die Frage, ob das reine Maschinenprogramm „IN- 
VERS-UTILITY" auf Diskette oder auf Kassette gespeichert 
werden soll (der Loader wird danach nicht mehr benötigt und 
kann gelöscht werden). Wenn Sie das Maschinenprogramm 
dann später brauchen, können Sie es mit LOAD „INVERS-UTILI- 
TY",8,1 {von Kassette mit 1.1} einladen (die Sekundäradresse 
darf nicht fehlen) und mit POKE 55,0: POKE 56,62 vor Über- 
schreiben durch BASIC schützen. Die Routine wird gestartet 
mit dem Befehl $Y$ 15872,X1,Y1,X2,Y2, wobei X1/Y1’und X2/Y2 
die Koordinaten von zwei sich diagonal gegenüberliegenden 
Eckpunkten des rechteckigen Bildschirmausschnittes, der in- 
vertiert werden soll sind (X muß zwischen 0 und 39 liegen, 
Y zwischen 0.und 24). 


Beispiel: SYS 15872,0,0,39,24 invertiert den ge- 
samten Bildschirm. 


Noch eine wichtige Anmerkung zum BASIG-Loader: Die ersten drei 
REM-Zeilen dürfen auf keinen Fall iehlen, da sie den Filenamen tür die 
SAVE-Routine enthalten! 

Daniel Durstewitz 





























10 REM Her EHI HIER <121> 
15 REM # * <1125 
20 REM # INVERS-UTILITY %* 59773 
25 REM * # 1225 
50 REM # EINGABEFORM: # x256> 
35 REM # * x132> 
40 REM *& SY515872,X1,Y1,X2,Y2 * x20> 
45 REM * <x1427 
50 REM * SCHUETZEN VOR VEBERSCHREIBEN # <17&6> 
55 REM # DURCH BASIC: Lö x122> 
60 REM # * «1977 
65 REM * POkE 55,0 : PÜkE 56,52 %* <172> 
70 REM * “  <ı167> 
75 REM * 19786 BY DANIEL DURSTEWITZ * x1a75 
80 REM * REICHENBERGER 5STR.26 * <i44> 
85 REM # 44&0 NORDHORN * <1ab> 
90 REM *# TEL.05F71/77209 * <20> 
95 REM * * <ıF2> 
797 REM RHEIN E NE III <210> 
105 <163 > 
110 3 148? 
115 3 “173> 
120 <178> 
125 FORT=158727T0 18042: READA: PDKET „Arf=f+ 

A=:NEXT . 204 > 
150 IFP=241 74G070145 <IEr 
135 PRINT" {DORN3FEHLERTSPACEH INISPATEIDE 
NISPATEFDATAS' TSRALEFBITTE {SFAGEFUEBERPR 

UEFEN" A22Ur 
140 PRINT"SIE{SPACEIDIETSPÄCEFFEILENTSPA 
CE319S-ZI5TSFACEINOCHTSPATGEFEINMAL!WSEND <172> 
145 PRINT" £DOGHNISODLLISPACEHDÄASTERACEIFRO 
BRAMM{SPACEIAUFTSPACE RVSONYDIRVSBERFISK 
ETTE{SPACE}ÜDER" <25$ 
150 INPUT"TAUFTSPACE RVSONIKIRFEREFIASSET 
TEISPACE>I ABGESPEICHERT ISPAGEIWERDEN”: AS x112> 
155 IFA$="D"THENFOBEI1SGOL1,8:G0T0170 169% 
180 IFAF="K"THENFOFREIAO11,1576G0T0179 x104> 


165 GOTD145 OR 


werkstatt 


172 SYS14D01O:END 
175 
180 
185 
170 
175 DATAS2,214,157,2223,40,144,3,76,28,15 
3,134,216,32,216, 157,224 ,25,176,244 

200 DATA134,217,32, 2158, 157,224 ,40,176,23 
59, 134,219,32,216,157,224,25,175,22& 

205 DATA134,219,155,219,24,229,217,16,13 
‚1685, 217,72,1653,219,153,217,104,133 

210 DATA219,76,39,62,133,219,165,218,24, 
229 ,216,16,13,165,216,72,185,218 

215 DATA133,216,104,,153,219, 76,61,62,133 
218,160,12,166,217,165,21&,132,217 

220 DATAZO2,48,9,24,105,40,144 ,248,230,2 
17,208,244,133,216,1664,219,232,164 

225 DATA218,200,177,216,24,105,128,148,2 
16,136, 16,246, 165,216, 24,105,40, 153 

230 DATA216,144,2,230,217,202,16,2297,76, 
226,139 

235 ı 

2A0 8 

245 REM SAVE-ROUTINE 

250 3 

255 

260 DATA182,1,160,1,22,49,244,169,14,162 
,94,1650,15,32,12,244,1689,0,1533, 216 

265 DATA169,62,133,217,167, 218, 162, 130,1 
60,62, 76,148,241 


Ssyrrulanae 


Commodore 16/116 


KE (Air Combat. Emulator) 
Head 


. 34.00 IM 
29.00 IM 


8 
EI 


. 


EUUSZUIN 


BBRUEERDD 
EEE) 


Uleässıs 


Commodore 64. 


ug 
Law of the West 


BuBBHHn88 
PFEFFER: 


® = 


BEBBBTERBE 


Psi 5 Trading Company 
Hero of the Golden Talisıen 


nn 
4 

fe 
3 


SiBT> 
LI3EH 
<258> 
“2432 
<248 7 
<226> 
<102> 
<203> 
<655 
<164> 
<155> 
<20r 
<193> 
<37} 
<42> 
SDAEr 
2523 
57% 
«71% 


<131> 


Legen Sie bei Bestellungen das Geld entweder in bar oder als 


Scheck bei. Bei Nachnalme-Versand wird ein Porto-Preis von 
4.00 IM angerechnet. 


Telefonische Bestellungen sid GOFTIUARE-VERSAND 


ab 18.%0 Uhr möglich. 
Fordern Sie unsere kosten- 
losen Informationen an! 


won ANDREAS BACHLER 
BLÜCHERSTRASSE 24 
20) BOTHOLT 
= O2 AOBS 
BOSTFACH 420 
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Programme 


Haben Sie schon Ihren Lohnsteuerjahresausgleich bei Ihrem Finanzamt eingereicht? Wenn 
nicht, dann können Sie mit dem folgenden Anwendungsprogramm ausrechnen, welche Rück- 


zahlung Sie erhalten! 


Lohnsteuerjahresausgleich 


ist ein Anwendungsprogramm, das die 
ganze Vielfalt des Steuerrechts berück- 
sichtigt. Mit seiner Hilfe können Sie das zu 
versteuernde Einkommen aus nichtselb- 
ständiger Arbeit, Kapitalvermögen, Ver- 
mietung, Renten (Versorgungsbezüge) 


berechnen. Dabei sind die Werbungsko- 
sten, die Sonderausgaben und evil. Frei- 
beträge berücksichtigt. Mit ein bißchen 
Programmiererfahrung können Sie dies 
Programm ständig aktualisieren und So- 
mit immer die neuesten Daten berück- 


noch schuldig ist. 


sichtigen, Bei Eingabe Ihrer persönlichen 
Daten können Sie sehr schnell und ein- 
fach Ihren Erstattungsbetrag errechnen. | 
Auf diese Weise wissen Sie schon zu Be- 
ginn des Jahres, was Ihnen Ihr Finanzamt 





1000 REM"LOHNSTEUERJAHRESAUSSLEICHTSFACE 
+95" 

1001 REM#+ BERECHNUNG DES ZU VERSTEU- * 
1002 REM# ERNDEN EINKOMMENS FUER 1995%* 





1003 REM# FUER Cis/11& BY ware 
1004 REM* PETER MUENZER KR 
1005 REM# DIESSENHOFERSTR. 13 ea 
1004 REM# 7715 BRÄAELNLINGEN KERNE 


1007 BREMER EN 
1008 REMunnunner EC 1985 ER 
1009 REMERARRRHRCHERERRUNKHRRK TERN INNERN 
1010 SCNELR 

19290 PRINT"RRARREER RER HERHEREE 
EREERKRRREN 

103G FRINTTAB (4} "BERECHNUNG{SPAGEIDESTSP 
ACE}ZUXSPAGEFVERSTEUERNDEN" 

1040 PRINTTAB {4) "{SPAGEITFEINKOMMENS" 





1050 PRINT"aRRURKREREEEEERER HEHE RUN HE 


Ba 2 ne 2 

1052 PRINT 

1053 FRINT"LEDIGTSPALCEF: ISPACEFFILTSPACE> 
EINGEBEN!" 

1054 PRINT"VERHEIRATET: {SPACE4}YVISPACEIE 
INGEBEN!" 

1055 INFUT A$ 

1055 IF A$S="ISPACE}" THEN GOTO 45535 
1657 IF A$="L" THEN LET Bl 

1058 IF A$="V" THEN LET Q=2 

1059 PRINT 

1040 PRINT 

1070 INPUT "BRUTTOLUOHN {EHEMANN) = TSPAGES} 
sL 

1080 GOSUB 34053 

1076 PRINT 

1100 PRINT"EINKUENFT{SPACEIDERTSPACEHEHE 
FRAUTSSPACEIAUSTLSPACEINICHTSELBST. " 

i11O PRINT"ARBEIT?FLSPAGETF (J/ND" 

1120 INPUT As: IF As="{SPACE}" THEN GOTO 
1120 

1130 IF Ak="N" THEN GOTO 1150 

1140 INPUT "BRUTTOLOHN (EHEFRAU) : SFEPACES?} 
":H 

1150 IF Af="J" THEN GOSUB 3850 

1150 LET N=INT{L-W-1080) 

117G LET M=INT H-WK-1080) 

1180 IF N<O THEN LET N=0 

1190 IF M<Qa THEN LET M=O 























1200 PRINT "EINKOMMEN{SPACEIABZUEGLICHESE 





PACEFWERBUNGSKOSTEN: " 

1210 PRINT 

1220 PRINT"EHEMANN: {SPAGESS" EN; " ESPAGEID 
Mm" 

1230 FRINT 


255% 
<126> 
<31> 
x17> 
s238> 
<251> 
x8977 


» <1B3> 


637 
<185> 
«221> 


323 


S208> 
«1207 


«8357 
<185> 


x113> 


<242> 
x150> 
SI4> 

<226> 
AI3> 

x192> 
“19733 


<31> 
<154> 
ı223> 


x1786> 
aa? 


s22> 
35? 


<al> 
<1509> 
+218> 
<10> 
<1177> 
“118> 


<2B> 
<a77 


<225> 
<107> 


1240 PRINT"EHEFRAUs {SPACEII "3 M; "ISPACE+D 
Mm" ö 

1250 PRINT 

1260 PRINT! 
nn en ums a an m 

1270 FRINT"GEMEINSAMS {SPACEF "3 N+M; "TSPAC 
E>DM" 

1280 PRINT” —-— = —— mm m mm mm m nn 


—— mm 





. 4290 PRINT 


1306 PRINT"OHNECSPACE? VERSORBUNGSFREIBET 
RAG!" 

1310 PRINT 

1320 PRINT"EINKUENFTETSPAGCEIAUSTSPACEIKA 





PITALVERMOEGEN? SPAGCE} GI/ND" 


1330 INPUT As:IF As="{SPACE>" THEN GOTO 
1330 

1349 IF A$="N* THEN LET Z1=0 

1350 IF A$="J" THEN GOSUB 3950 

1360 PRINT"EINKUENFTETSPAGEIKAPITALVERMD 
EBEN: "5; ZI 

1370 PRINT 

oe oo 
1380 PRINT"EINKUENFTE (NICHTSELBST.ARBEIT 
CSPACEFUND” 

1390 PRINT"KAPITALVERMDEGEN: {SPACEZ} "3 N+ 
M+HZI5 "CSPACEIDM" 

1395 PRINT"—--------- nn 
RE ET | 

1400 PRINT 

1405 PRINT"EINKOMMEN{SPACEIAUSCSPACEI VER 
MIETUNG£SPAGE}UNDTSPACEFVERPACH-" 

1410 INPUT" TUNG?LSPALEL} WI/N) "BE 

1412 IF B$="{SPACE}" THEN G0TO 1412 

1414 IF B$="N" THEN LET VE =0 

141& PRINT 

1418 IF Bi="J" THEN GOSUB 4200 

3400 PRINT"SIND{SPACE)BEI {SPACE} DEN{SPAL. 
EIEINKUENFTEN CSPACE } VERSORGUNGS-" 

3405 INPUT"BEZUEGE{SPACEIENTHALTENTSPACE 
23 (I/N) {SPACEY";A$ 

3410 IF Ad="{SPACEI" THEN GOTO 3410 

3415 IF A$=UNn" THEN LET V5=0 

3420 IF A$="J* THEN GOSUB 4100 

3430 PRINT 

3435 PRINT“VERSORGUNGSFREIBETRAG: {SPACEI 
“Vs [1] {SPACE>DM” 

3440 PRINT 

3450 PRINT"EINKOMMENTSPACEFNACHTSPACEIAB 
ZUGESPACEIDESTSPACEFVERSORGUNGS-" 

3455 FRINT"FREIBETRABS: {SPACE} "3 INT (N+M+ 
ZI-vs) 

3456 PRINT 

















Gompute mit 





“9> 
*127> 


<51> 
R235> 


<72> 
<1688> 


“2247 
<188> 


<180> 


<23> 
<93> 
s106> 


<7> 
<248> 


<167> 
<115> 
<135> 


<197> 
«227 


«170> 
<189> 
<41> 
<85> 
<38> 
£49> 


<92> 


<70> 
<247> 
<198> 
<254> 
<12> 


x237> 


<22> 
22497 


<119> 
x38> 


6/86 


} 


6/86 


3457 PRINT” ZU/ABZUEGLICHTSPACEIEINKUENFT 
ETSPACEFAUSTSPACEIV+VISPACE}" VE "ISPACE 





>DM" 
3440 LET GG=INT £N+M+ZI+VE-V5) 


3445 PRINT” ZWISCHENERBEBNIS{SPAGEIMITESP 





ABEIV+V" GB; "CSPACEIDM" 

3500 PRINT 

3505 PRINT"ALTERSFREIBETRAEGETSPALEHIDER 
XSPAGEIALTERSENTLAS-" 

3504 INPUT"BETRAB?ISPACET} (I/N) "ICH 

3508 IF C$="{SPACE>" THEN GOTO 3508 

3509 IF C$="J* THEN GOSUB 43500 

3519 IF C$="N" THEN LET AH=O 

3520 PRINT 

3525 PRINT"---—-- —— nenn 


nn m nn mann ana DR 








3530 PRINT"MACHISPACEFABZUGTSPAGEIDESTSP 








ACEIALTERSFREIBETRABS(SPACEIUND SPACE} “ 
3535 PRINT 

3540 LET EK=TNT (N+#1+Z1I-AH-VS+VE) 

3545 _ PRINT "DES{SPALCEIALTERSENTLASTUNGSBE 
TRABEY "7 EK3 " ISPACE}DM" 

















3550 PRINT" nun 
3555 PRINT"EINGABETSPACEIDERCSPACEIKINDE 
RFREIBETRAEBE" 

3560 PRINT 


3565 INPUT"ANZAHLTSPACEIDERTSPAGEFZUISPA 








CE3BERUECKSICHTIGENDEN{SPAGEIKINDER"SKZ 
5570 PRINT 
3575 LET Kf=KkZ#432 





3380 PRENTTAB 10) "KINDERFREIBETRAG: SPAC 


E33 KF" 4 {SPACE} "DM" 
3585 PRINT 


3597 PRINT" nme 





nn nn 


3590 PRINT“EINDOMMENTSPACE}NACHTSPACEIABZ 
UBLSPACEIDERTSPACEIKINDER" 

3399 PRINT"FREIBETRAEGE: {SPACE}”3 EK-KF} 
"ISPACEIDM" 


3597 PRINT". 

















3597 GOTO H00G 
3600 END 
3605 REM "WERD" 





. 3610 PRINT 
3615 FRINT "UNTERPROGRAMMISPACEIWERBUNGS 
KOSTEN" 

3620 LET R=0:LET U=0: LET Z=0 
3625 PRINT 
3630 INPUT "WIEVIEL{SPACEIARBEITSTAGE"}T 





3635 INPUT "KILOMETERTSPACEF {EINFACH ";K 
5440 PRINT 

5645 LET R=INT(Trk#. 36) 

3650 PRINT"FAHRTEN{SPACE} ZURTSPACEFARBEI 
TXSPACEH TH. V. "ERS "DM" 

3655 PRINT 

3640 FRINT"SOLLEN{SPACEIDIEISPACEIKOSTEN 
ISPACEFFUERTSPACEIEIN{SPACEFARBEITS-" 
3655 PRINT" ZIMMERTSPACEIBERECHNETISPAREI 
WERDEN ?ISPACEFLI/NI 

3670 PRINT 

3675 INPUT Z#$ 

T680 IF ZI="ISPACEN” THEN B0TN 36890 

3685 IF Z$="J" THEN GOSUB 3775 

3690 IF Z$="N" THEN PRINT"GIET{SFACEIEST 








SPACEIWEITERETSPACEIWERBUNGSKÜOSTENTLSPAE 





[SKey 

3695 INFUT Y$ 

3700 IF Y$="{SPACEI” THEN GOTO 3700 

3705 IF Y$="N" THEN GOTO 3735 

3710 PRINT "BEI{SPACEIDIESEMTSPACEHEINFA 
CHEN SPACE}PROBRAMMSPAGEIMUESSEN"z 


3715 FRINT"<SPACESIDIETSPACEIWMELTFERENISP 


<187> 
<1227 


<34> 
<B2> 


“95> 
<91> 
x196> 
<113> 
<222> 
<102> 


<21> 
ba? 
<117> 
<y6> 
<1867 
“4a 


<35> 
x142> 


<200> 
<152> 
<99> 


<241> 
<158> 


<84> 
<215> 
1497 
sPA> 
<82> 
*158> 
x79> 
x17357 


<S54> 
x28F 


.<209> 


<116> 
<184> 
<223> 
<211> 


<155> 
S238> 


<113> 


x132> 
2537 
<14> 
«1627 
“7> 


<3> 
sI2> 
*95> 
<221> 


94? 


Programme 


ACEIWERBUNGSKOSTEN SPACEIALSTSPÄCEI SUMME 
{SPACE}" 3 

3720 PRINT" {SPACE2IEINGBEGEBEN{SPACE}WERD 
En!" 

3725 PRINT 

3730 INPUT "WEITERE {SPACEIWERBUNGSKOSTEN 
{SPACEF "U 

3735 LET W=INTIZHRR) 

3740 IF W564 THEN LET W=564 

3745 IF L<W THEN WeL 

3750 PRINT 

3755 PRINT"DIETSPACEFABSETZBARENTSPACEIHN 
ERRUNGSKOSTEN{SPACE}" 

3760 PRINT"BETRAGEN{SPACEI" 3 W; "CSPACEIDM 
„ 

3765 RETURN 

3770 END 

3775 REM#*#UNTERPROGRAMM ZUR BERECHNLNG# 
* 

3780 REM**=DES ARBEITSZ IMMERSIHHHER ARE 
z : 
3785 INPUT "HOEHE {SPAGCEIDERTSPACENMIETE: 
SPACEPI" SH 

3790 INPUT"HOEHE{SPACEFDERTSPACE}NEBENKU 
STEN{SPACE43" N 

3795 INPUT"STROM{SPACE}UND{SPACEIWEITERE 
TSPALEIKOSTENTSPACEN" 5 W 

3800 INPUT "BUADRATMETERTSPACEFWOHNFLAECH 
EiSPACE}"3OW 

3805 INPUT"QUADRATMETERTSPAGEHARBEITSZIM 
m.";B 

3810 LET Z=INT({H+N+W) /QW) #Br12) 

3815 PRINT 









































3820 PRINT"DIE{SPACEFABSCHREIBBAREN (SPAL 


EIKOSTENCSPACE3FUERTSPACEFDASTSPACES>" 
3425 PRINT"ARBEITSZIMMERTSPACE}BETRAGENT 
SPACEI"3 273 "DM." 

3830 PRINT 

3835 PRINT"GIBT{SPACEFES{SPACEIWEITERETS 
PACE3WERBUNGSKOSTEN?" 

3840 RETURN 

3845 END 

3850 PRINT 

3855 LET R=0:LET U=0: LET z=0 

3840 PRINT"WERBUNGSKOSTENTSPACEFEHEFRAU: 
u 











3865 INPUT "WIEVIELTSPACEIARBEITSTAGE"T 
3870 INPUT "KILOMETERTSPACE} (EINFACH) "5K 
3875 FRINT 

3880 LET R=INT{TxK*. 34) 

3885 PRINT"FAHRTEN SPACE ZUR<SPACEIARBEI 
T{SPACE? TcH. V. ";R3 "DM® 

3890 PRINT 

3995 FRINT"GIBTTSPACEFES{SPALEIWEITERETS 
PACE>WERBUNGSKOSTEN?" 

3900 INPUT A$sIF A$="{SPACE>" THEN 60TO 

3900 

3905 IF A$="N" THEN GOTO 3920 

3910 PRINT"WEITERETSPACE}WERBUNBSKOSTENT 
SPACEIALSTSPACEISUMMETSPAGEN" 

3915 PRINT"EINGEBEN!"s INPUT U 

3920 LET WK=INT (R+LU) 

3925 IF WK<S64 THEN LET Uk=564 

3930 IF H<WK THEN LET WK=H 

3935 PRINT"WERBUNGSKUSTENtSPACE}DERTSEPAC 
EIEHEFRAU: "UK 

3740 RETURN 

3945 END 

3950 REM&##EINKUENFTE KAPITALVERMDEGEN«## 
3955 LET ZI=0:E=0:WB=0:F=0 

3960 PRINT 

3965 PRINT"EINKUENFTECSPACE}KAPITALVERMO 
EGEN" 

3970 PRINT 























Compure mib 


1595 


385 
<32> 


<142> 
«2325 
I3> 
“2105 
AFF>. 


*134> 


<19> 
xBl> 
<72> 


s259> 
«152> 
x78> 

<“151> 
<143% 
<2477 


<25> 
<11l> 
“142> 


sa> 


“137 > 
%1537> 


“179> 
<157> 
<1487 
<178> 
S3> 


<211> 
<F&> 

2164> 
<203> 
<191> 


<135> 
<219> 


2402 


<1137 
<a3> 


<148> 
2527 
<2207 
<171> 
<121> 


<45> 
“1> 
<zA8> 
<“3> 
<139> 
x327 


2164 > 
<a2> 
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Programme 


3975 INPUT"EINNAHMEN: TSPACEZ} "SE 

3980 PRINT 

4015 INPUT"WERBUNGSSKOSTEN: {SPACEII"zWB 
4020 IF WB<B#*100 THEN LET WB=0#100 

4025 LET F=8#+3009 

4030 LET ZI=INT<(E-WB-F} 

4035 IF ZI<O THEN LET ZI=ö 

3040 RETURN 

40945 END 

4100 PRINT 

4105 REM###GOSUB FUER VERSORBUNGS- Ka 
4105 REM###FREIBETRAGHHFHEN HR 
4110 PRINT"GEBEN{SPACEFSIE{SPACEIDIETSPA 
CEIHOEHE SPACE DER {SPACE 3 VERSÜRGUNGS-" 
4115 PRINT"BEZUEGESPACEYEINISPACE) (EHEM 
ANN) . 

4120 INPUT VZ 

4125 LET VB=INT (VZ2#40/100) 

4130 IF VBE>4800 THEN LET VB=49009 

4135 PRINT 

4140 INPUT"VERSDRGUNSSBEZUEGE (SPAGE} (EHE 
FRAU "zWV 

4142 PRINT 

4145 LET VE=INT (WV#40/100) 

4150 IF VC>4800 THEN LET VE=4809 

4155 LET VS=VEHVC 

4160 PRINT"VERSORGUNGSFREIBETRAGTSPAGE} ( 
EHEMANN} = "3 VB 

41&2 PRINT bi 

4155 PRINT"VERSDRGEUNGSFREIBETRAGTSPACEF { 
EHEFRAU} : "3 VE 

4170 PRINT 

4175 PRINT"GEMEINSAM: "; VS5 "TSPAGEIDM” 
4185 RETURN 

4190 END 

4200 REM#**#EINKUENFTE AUS VERMIETUNG#F** 
4201 PRINT 

4205 PRINT" ACHTUNG: DIE{SPACEFBERECHNUNGT 
SPACEFERFOLGT{SPACE?VORERST“" 

4207 PRINT"NOCHTSPALCEINACHTSPACEFDERTEPA 
CEYISEHR{ISPACEFEINFACHENTSPACEHGLEICHUNG: 
” 




















4210 PRINT" {SPACE#}SUMMETSPACEIDERTSPACE 

>EINNAHNEN" 

4212 PRINT" {SPACEIY-SUMMETSPACEIDERTSFATC 

E>AESCHREIBUNGEN” 

4214 PRINT" {SPACEI3+-SUMMEISPAGEIDERTSPAG 

E3SONSTIGEN{SPAGEFUNKOSTEN" 

4215 PRINT"TSPACEST 
n 

















4217 PRINT" {SPACE£IEINKUENFTETSPACEIAUST 
SPACEFVERM. TSPACE}U. TSPACEIVERPACHTUNG" 
4220 PRINT j 

4225 INPUT"EINNAHMENTSPACE} (AUCHTEPACEIE 
IGENNUTZUNG}I "ZEN 

4227 PRINT 

4230 INPUT" TSPACEITFABSCHREIBUNG";AB 
4235 FRINT 

4240 INPUT" {SPACESISUMMETSPACEFALLERTSPA 
LEFUNKOSTEN" z UK 

424% LET VE=INT (EN-AB-UK) 

4245 PRINT 

4250 PRINT"DIEISFACEFEINKUENFTETSPAGEFAU 
GSISPACEFV+VISPAGEFBETRÄBGENTSPACEI" VE "D 
M" 

4279 FRINT 

4275 RETURN 

4280 END 

4300 REM*##ALTERSFREIBETRAEGEHRRRRHIERR 
A201 REM##*ALTERSENTLASTUNGSBETRAEGEHF#+ 
4302 PRINT"ANZAHL{SPAGCEIDERTSPACEFALTERS 
FREIBETRAEGE?ISPACEI (O/L/ZDI" 

43303 INPUT "STICHTAGTSPACEFFUERTSPACEH FO 
5: {SP ACEI3 1.1. 1F2013PACEH":D 
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«2077 
“32> 

<19&> 
x234> 
<148> 
%195> 
*1757 
*101> 
%“932> 

173> 
%64> 

“101> 


xI6> 


«<251> 
“103> 
797 

<106> 
<208> 


<179> 
x215> 
«7773 
<141> 
437 


<205> 
“2357 


<120> 
<243> 
<153> 
«2477 
<239> 
x64> 

x19> 


s196> 


<51> 
85? 
“144> 
+D> 
“327 


<30> 
377 


«11> 
x44> 
2447 
“525 


«113> 
»114> 


- 627 


<159> 
<87> 
<81> 
<72> 
123 
“109% 


“184> 





4319 LET AF=D*720 

4315 PRINT 

4316 PRINT"ALTERSFREIBETRAG: {SPACEZF"SAF 
3 "ISPACE>DM" 

4320 PRINT 

4322 LET VE=EV:IF EV <0 THEN LET Ev=Ö 
4325 LET ZI=IZ:IF 1Z <O THEN LET 12=0 
4325 LET AS=INT( (N+EV+IZ-VZ) *40/100) 
4325 LET AT=INT ((M-WV) 40/100) 

4327 IF AT>3000 THEN LET AT=3000 
4350 IF AS>3000 THEN LET AS=3000 

4335 PRINT 


4340 PRINT"A-ENTLASTUNGTSPACEHEHEMAÄNN: 15, 


PACEBY "3 AS" SPALEIDM" 

4341 PRINT"A-ENTLASTUNGTSPALEIEHEFRAU: TS 

PACEB}Y" SAT3 "ISPACEIDM" 

4342 PRINT 

4343 LET AH=AF+AS+AT 

4345 PRINT"A-FRET{SPAGEIH+TSPACEIA-ENTL.B 

ETRAG= {SPACE} " ;AH3 "TSPACEIDM" 

4350 RETURN 

4340 END 

&000 REM#=##BERECHNNG DER SONDERAUSGABEN# 

&aßto PRINT 

60915 PRINT "BERECHNLUNGTSPACEFDERTSPACEFSD 

NDERAUSGABEN" 

&020 FRINT 

6022 PRINT"A} TSPAGEFUNBESCHRÄENKTISPACEI 

ABZUGSFAEHIGE: " 

60253 PRINT 

6025 INFUT"KIRCHENSTEUER: fSPALEFF";KS 

&030 INPUT"ERSTATTUNGTSPACEZIKI-STELER: & 

SPACEF" SKI 

6055, #035 INPUT"STEUERBERATUNGSKOSTEN: {SPACE} 
;35B. 

6040 INPUT" ABSETZBARETSPACE3SPENDEN: <SPA 

CE#}",SP 

6042 PRINT"HOECHSTBETRAEGE{SPAGEIBEACHTE 

N!" 

6045 INPUT"SUNSTIGETSPACEIABZ . SO-AUSGAB: 

"55 

6050 LET UB=INT (KS-KI+S5B+SP+55) 

6052 IF UB<G*270 THEN LET UB=0*275 

&055 PRINT 

&05&0 PRINT "UNBESCHRAENKTTSPACEHABZUGSFAE 

HIGE {SPACEISONDERAUS-" 

6053 PRINT "GABEN: TSPACEIZF" SZ UB5 "ISPACEID 

Mm" 

&070 PRINT 

&073 PRINT"B} {SPACEFBESCHRAENKT TSPACEHAB 

ZUGSFAEHIBE:A " 

4075 PRINT 

&100 PRINT"ARBEITNEHMERANTEILTSPATEIGESE 

TL.50ZIALVERS." 

&105 INPUT"EHEMÄNN: {SPACEIFI",SM 

&110 INPUT”EHEFRAU: {SPACEISF "SF 

6115 INPUT"FREIWILLIGETSPAGCEIHDEHERVERS: 

"FH 

&120 INPUT"ARBEITGEBERZUSCHUSSS TSRACEIF" 

‚Az 

&125 INPUT"KRANKENVERSTCHERUNGEN: {SPACE} 

MaKV 

&130 INPUT "EVTL.ERSTATTUNGEN/ ZUSCH"SES 

6135 INPUT"LINFALLVERSICHERLINGEN: ISPACER} 

“uy I 

&140 INPUT"LEBENSVERSICHERUNGEN: {SPACE} 

".Ly 

&150 INPUT"HAFTPFFLICHTVERS. D. KASKO";HPR 

&150 LET BA=SM+SF+FH+KVS+UV+LVY+HR--AZ-ES 



































"&200 PRINT 


&205 INPUT"SIND{SPACEISIETSPACEIBEAMTER? 
ZSPACE2I (I/N) "3D$E 

#210 IF D$="£SPACEI" THEN GOTO 4210 
&213 IF D$="N" THEN GOTO 5250 





Gompute mib 





<167> 
«1327 


<221> 
<137> 
<74> 
<a3> 
<92> 
<93> 
<113> 
<101> 
<152> 


<53> 

<179> 
“157> 
<148> 
<139> 
<1Sa> 
1557 
x153>3 


«84> 
x52> 


x147> 
35 
251% 
<58> 


z20ir 
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6220 FRINT"EINAHMENISFACEIALSTSPACEFBEAM 
TER (EHEMANNTSPAGEFUNDTSPACEFEHEFR. " 

6222 PRINT 

6225 INPUT"EHEMANN: {SPACEISI"ZBB 

6230 PRINT"EHEFRALS TESPACEISS "CC 

6235 LET B1=INT (BB/109%%) 

6238 LET C1=INT (CC/1004#7) 

6250 PRINT 

6255 PRINT”ARBEITGEBERANTEILTSPACE}IGESET 
ZI. {SPACEISUZIALVERS. " 

&2&0 INPUT"EHEMANNE {SPACEISY"JAB 

6255 INPUT"EHEFRAUS (SPAGEISYI"ZEF 

6275 LET AAsAS+EF 

6276 IF AA>S000x2 THEN LET AA=3000#Q 
6280 LET ZZ=0+3000-AA-B1-C1 

6300 LET YY=BA-ZZ 

6305 IF YY<SO THEN LET YY=O 

6310. PRINT 

6315 PRINT"BEITRAEGETSPACEIANTSPACE} BAUS 
PARKASSEN{SPACE? (OHNE TSPACEIVER-" 

6318 INPUT "MDEGENSWIRKSAMETSPACEILEISTUN 
GEN): "sBS 

6320 LET ZX=YY+BS 

6325 LET HH=9#2340+K2#A00 

6330 LET FF=ZX-HH 

6335 IF FF<O THEN LET FF=0 

6340 LET DD=FF/100«50 

65345 LET MM=HH/100#50 

6400 IF BA>ZZ THEN LET S51=22 

6405 IF ZZ>BA THEN LET 51=BA 

6410 IF ZX>HH THEN LET 52=HH 

6415 IF HH>ZX THEN LET S2=ZX 

6420 IF DD>MM THEN LET 53=MM 

6425 IF MM>DD THEN LET 53=DD 

6430 LET SA=INT (81+52+553) : 

6432 IF 5A<d#300 THEN LET SA=0*300 

6435 PRINT ; 

5440 FRINT"BESCHRAENKT{SPABEFABZUGSFAEHI 
GE{SPACE>SONDERAUS-" 

ln 5 PRINT"GABEN: {SPACES}"; SA; "<SPACEIDM 

















6506 LET SO=SA+UB 

6600 PRINT 

6605 INPUT"AUSBERGEWOEHNLICHE CSPACE}BELA 
STUNGEN"SFX 

6607 PRINT 





6510 FPRINT"WIRDTSFACEFEINHAUSHALTSFREIBE 


TRAGTSPACEIGELTENDTSPALEIGE- " 

6615 INPUT"MACHT{SPACETF (I/NI "HER 

6617 PRINT" {RVSONFALLEINSTEHENDE {SPAGEIM 
IT{SPACEIKIND{SPACEI BEI {SPACEIGRUNDTAB. ! 
{RVSOEF}" 

6620 IF E$=e"{SPACEI" THEN GOTD 6420 

6625 IF E$="N” THEN LET FZ=0:G0OT0 90006 
66309 IF E$="J" THEN LET FZ=4212 

8888 PRINT 

9009 PRINT"LONT{SPAGEISTEPACEHRETURNISPA 
CEIEINGEBEN! ":5TOP 

9003 SENGLR 

9005 PRINT 

9010 PRINT"BERECHNUNG{SPAGEIDESCSPAGENVE 
RSTEUERNDEN{SPACEIEINKOMMENG" 

9020 PRINT?----------—----------- 


29030 FRINT"{SPATEITFEHEMÄNN: LSPACESFEHEF 
RAUS" 








9035 PRINT"ERUTTOLOHNN: TSPALEF "313 "TSPACE 





Z3";H 
9040 PRINT"WERBUNGSK. 2 [SPAGE} "3 W5 "CSRACE 
73" We 

9045 PRINT"VERMIETUNG: {SPACE} "VE 

9050 PRINT"KAP. -VERM. ı tSPAGE}"SZI 

9052 PRINT"SONDERAUSGE LSPACEI "SO 











9055 PRINT"VERS. FREI. 2 {SRACE} "3 VBa "ISPAC 





GE? 
“255> 
<160> 
«ı22> 
<1F73> 
<2135> 
<27> 


x206> 
<56> 
<180> 
“99> 
<144> 
<114> 
x56> 
<76> 
<87> 


«131> 


2305 
“727 

x242> 
<177> 
<200> 
<185> 
237> 
<163> 
<x176> 
<164> 
<183> 


<242> 
x244> 
«72> 

x<213> 


x173> 


x215> 
37?» 
x122> 


<117> 
x12977 


“103> 
%*214> 


<85> 

x213> 
<244> 
<237> 
<115> 


“1775 
343 
23357 
“2> 
<5Ir 
“Ar 
<170> 
<18? 
“222> 


x98> 
19 > 


programme 


E7TI"IVC 
7060 PRINT"ALTERSFREI: ISPACET GAR 


97085 PRINT"ALTERSENTL: {SPACE} "ZASS PISPAC 


ETF" LAT 

90709 PRINT"KINDERFRET: {SPACEN "KR 

3072 PRINT"AUSSERG. BE: {SPACE} "ıFX 

9073 PRINT"HAUSHALTSFREIBETRAG: TSPACE3}" 





209075 FRINT"---—-- -- -- —mme- nn 


9078 PRINT 
9080 LET ZE=N+M+ZI+VE-VS-KF-AH-SU-FX-FZ 
7099 IF ZE<O THEN LET ZE =0 

97880 PRINT"ZUCSPACEIVERSTEUERNDESTSPACEI 
EINKOMMENs "3 ZE5 " {SPACE+DM" 

2879. PRINT 

9899 PRINT" --—— mm mn 
u ———— named PR 

97910 PRINT" {SPACE} 'CONT’ {SPAGEHRTSPACEIR 
ETURN{SPACEIEINGEBEN! ":5TOP 

93915 SCNELR 

93920 PRINT 

9925 PRINT"BERECHNUNG{SPACE}DERTSPACEN ZU 
ISPACEFERSTATTENDEN{SPACE}STEUER" 

9927 PRINT" ------- un 
zumsen nunmrenunun um FL 

7930 PRINT "BEZAHLTE{SPALEISTEUERN: ® 
9935 INPUT"EHEMANN: SPACETII" RI 

9740 INPUT"EHEFRALU: ISPAGEL1Y";RZ 

9945 INPUT"K1-STEUER (EHEMANN 2 ";R3 

3950 INPUT"KI-STEUER (EHEFRAU 2 "5R4 

9955 PRINT 

9760 PRINT"STEUER{SPACEFNACH": 

10700 IF &=2 THEN PRINT" £SPACE2ISPLITTIN 
STABELLE" 

10910 IF @=1 THEN PRINT" (SPACE2IGRUNDTAB 
ELLE" 

10715 IF F2>0 THEN PRINT" {SPACE2IGRUNDT 
ABELLE" 

10920 PRINT 

10925 PRINT"TABELLE{SPAGEIODERTSPACEIFIN 
ANZAMTLSPACEIFRABEN! ": INPUT"STEUER{SPACE 
3NACHTSPACE} TABELLE: "315 

10730 LET T&=INT(T5/100*8) 

10935 LET Z7=R1+R2-T5 

10940 LET ZE=-R3+RA-T& 

10945 PRINT 

10959 PRINT"STEUER{SPACEHNACHESPACE}TABE 
LLE: {SPACE43 "3 TS 

10955 PRINT"KIRCHENSTEUER{SPACE) (BX) ISPA 
CEI: {SPACE4}";T& 

10957 PRINT 

10740 PRINT"EINBEHALTENETSPACEISTEUERN: £ 
SPACE3}"JRI+RZ 

10942 PRINT"EINBEHALTENETSPAGCEIKI-STEUER 
Ne IRS+RA 

10970 PRINT"----- men nenn 
a En nt DE 

10972 PRINT" ZUCSPACEIERSTATTENDETSPACEIS 
TEUERN: {SPACE} " 5 273 "<SPACEIDM" 

10975 PRINT" ZUCSPACE}ERSTATTENDELSPACEIK 
I-5ST. 2 ISPACEZY",Z8," tSPACEFDN" 

10980 PRINT" mm nn 























nn a rd a u ur 


11000 END 

12000 REM#&*#* ALLE BETRAEGE WERDEN AUF 
12091 REM###* VOLLE DM. GERUNDET UM DIE 
12002 REM#*# UEBERSICHTLICHKEIT ZU 
12005 REM### WAHREN 

12004 REM##** DIE HDECHSTBETRAEGE WUR- 
12005 REHM#** DEN BERUECKSICHTIGT 
12010 REM#*#*# DIE RESTLICHEN 1848 BITS 
12011 REM### WERDEN FUER DIE EINGE- 
12012 REM#** GEBENEN DATEN BENDETIGST 


KrkkkkRkeEr 


Gompube enib 


“173> 
ee 


#218> 
<aß> 
x30> 


“Pr 
»217> 
x30> 
«al? 
«B27 


«120>. 
x97> 


x207 
<at> 
<201 > 
<127> 
<90> 
<a8> 
<106> 
<171> 
<1> 
<230> 
<80> 
<162> 
<t8> 
<176> 
<13> 
<33> 
2107> 


<121> 
<101> 
<a> 
x50> 
<132> 
216? 


377 
144> 


“293 
<Bh> 
x71> 
»17> 
«1097 


<el> 
“1A2> 
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WERE RN ZELTE TH 


Wir sind der Meinung, noch kein derarti- 
ges Spiel für den Commodore 16 vorher 
gesehen zu haben. MASTERTRONIC’S BAN- 
DITS AT ZERD ist ein rasantes, spannendes, 
grafisch voll ausgereiftes Programm für 
den C-16! Es erinnert stark an den einsti- 
gen Spielhatlen-Hit „Defender“, hat je- 
doch einiges an „Schwungvollem“ auf 
den „kleinen Commodore“ übertragen. 
Sie sind allein über den Wolken. Nachdem 
Sie Ihren Bomber in der Luft aufgetankt 
haben, sind Sie nur noch aufsich gestellt. 
Der Feind schläft nicht. Er entsendet eine 
ganze Luftflotte, um Sie zu vernichten. 
Doch: Mit geschickten Ausweichmanöver 
und gezieltem Feuer werden Sie nicht so 
leicht zu bezwingen sein! 


Die Grafik ist schon eine Augenweide. Das 
Scrolling sehr gut. Die Steuerung (Tasta- 
tur oder Joystick} optimal. Herrliche 
Landschaftsbilder (Wolken, Bergketten 
und das Meer} wechseln sich ab. 


Wenn Sie alle feindlichen Flugzeuge „er- 
wischt“ haben, beginntdas nächste Level: 
der Nachtflug und -kampf. An jedern neu- 
en Tag, den Sie überleben, wird ein Tank- 
flugzeug zu Ihnen geschickt, von dem Sie 
auftanken können. Insgesamt gesehen: 
ein hervorragendes Programm für den 
6-16/116. 


Preis: 15 Mark, Hersteller: Mastertronic, 
Kaiser-Otto-Weg 18, 4770 Soest, 





"Mit einem tollen Programm in die Abenteuer der 20er Jahre 
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Dieses MELBOURNE HOUSE-Programm 
versetzt Sie in die Unterwelt und die Ge- 
schäftspraktiken der Alkohol-Schieber 
der 20er Jahre. Das von uns getestete Pro- 
gramm verfügt über eine Grafik, die man 
getrost zum Allerfeinsten zählen kann. Der 
Sound steht den hervorragenden Bildern 
in keinster Weise nach, und herrlich sind 


die dazu ertönenden Klänge mit Melodien‘ 


aus den Goldenen Zwanziger Jahren. 
Die Handlung basiert in äußerst unterhalt- 
samer Weise auf strategischen Überte- 


Mugsy’s Revenge 


gungen beim Ankauf von Alkohol, bei der 
Eröffnung von Nacht-Clubs, dem Ab- 
schluß von „Verträgen“ mit anderen 
Gangsterbossen usw. Zudem werden alle 
Action-Fans voll aufihre Kosten kommen. 
Eine tolle Arcade-Sequenz gibt genügend 
Möglichkeit, sich auszutoben. 

Wenn auch Sie ein wenig aus dem Unter- 
welt-Milieu erfahren möchten, dann sollte 
dieses Programm wegen seiner genann- 
ten Vorzüge nicht in Ihrer Programm- 
sammlung fehlen. 


Compute mib 





keniier, 


Vertrieb: T.$. Datensysteme, Denisstr. 45, 


8500 Nürnberg 


r Schneider 
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Mastertronic stellt ein Programm für den 
C-16/116 vor, daß in unserer Programmie- 
rabteilung auf sehr positive Meinung ge- 
stoßen ist, Es handelt sich hierbei um ein 
Labyrinthspiel mit sehr gutem grafischem 
Aufbau. Das zu steuernde Männchen be- 
wegt sich durch eine Vielzahl von Bild- 
- E schirmseiten, in denen unterschiedliche 
ı Aufgaben wahrgenommen werden müs- 
| sen. 

I Schnelligkeit und gutes Reaktionsvermö- 


| gen sind bei diesem Spiel gefragt. Zusätz- . 


lich muß man auch noch genau zum rich- 
tigen Zeitpunkt entscheiden, welchen 
Weg man geht, um das Ziel zu erreichen. 
Da das Programm bei den 10,- DM Pro- 
dukten einzureihen ist, hat man für wenig 
Geld ein relativ gutes Programm für den G- 
16/116. Die Steuerung erfolgt entweder 
über die Tastatur oder mit dem Joystick. 


Anbieter: Mastertronic GmbH 
Kaiser-Dito-Weg 18 
47170 Soest 











Den Computer auch mal als sinnvolle Lernhilfe nutzen: 


 BRUCHRECHNEN leicht gemacht 


Commodore 64/128 Diskeite 


Die Rechentafel - Bruchrechnen ist ein uni- 
verselles Bruchrechnungsprogramm, ge- 
eignet für Schüler ab dem 6. Schuljahr, 
Jugendliche, Auszubildende und Erwach- 
sene, die ihre Kenntnisse auffrischen oder 
die Bruchrechnung neu erlernen wollen. 


Lerngegenstand: Vorführung und Einübung der 
mathematischen Operationen der Bruchrech- 
nung; Addition, Subtraktion, Multiplikation, Di- 
vision, Erweitern und Kürzen, unechte und ge- 
mischte Brüche und Kettenaufgaben. 


Im Übungsteil können vom Computer ge- 
stellte Aufgaben am Bildschirm gelöst 
werden. Dabei gibt der Benutzer den Re- 
chenweg (bei beliebig vielen Zwischen- 
rechnungen) und das Ergebnis analog der 
Schreibweise auf dem Papier ein. Der Lö- 
sungsweg wird vom Programm nicht vor- 


gegeben, sondern obliegt dem Benutzer. 
Bei falschen Eingaben (Zwischenrech- 
nungen oder Ergebnis) erfolgt ein Hinweis 
darauf, daß ein Fehler gemacht wurde. Es 
besteht die Möglichkeit, den Fehler zu kor- 
rigieren und sich eine gezielte Hilfestellung 
(Helptaste) geben zu lassen; Auch besteht 
jederzeit die Möglichkeit, von der zu lösen- 
den Aufgabe aus den Regelteil anzuwäh- 
len, ohne daß die zu lösende Aufgabe ge- 
löscht oder verändert wird. Im Anschluß 


an die Vorführung der angewählten Regel 


kann die Aufgabe weitergerechnet wer- 
den. Bei Überschreiten der Anzahl der Lö- 


‚sungsversuche wird das Ergebnis der 


Aufgabe samt ausführlichem Lösungs 
weg gezeigt. 
Des weiteren können eigene Aufgaben 
eingegeben werden. Eine Aufgabe kann 
eine Bildschirmzeile lang sein und belie- 


big viele (unterschiedliche) Rechenopera- 


tionen beinhalten (auch negative Zahlen). 


Compube mib 


Nach dem Überschreiten der (veränder- 
baren) Anzahl der Lösungsversuche wird 
das Ergebnis samt ausführlichem ‚Re- 
chenweg vorgeführt. Je nach Schwierig- 
keitsgrad kann der Lösungsweg mehrere 
Bitdschirmseiten lang sein. 


Es besteht die Möglichkeit, den Schwie- | 
rigkeitsgrad der Aufgaben zu wählen. Bei 
den Schwierigkeitsgraden 1 und 2 treten 
in den Aufgaben keine gemischten Brü- 
che auf, ab Schwierigkeitsgrad 3 können 
gemischte Brüche und auf Schwierig- 
keitsgrad 4 auch negative Zahlen auftre- 
ten. Außerdem werden mit zunehmen- 
dem Schwierigkeitsgrad die Zahlen für 
Nenner und Zähler größer. 


Diskette 5%4” für Commodore 64/128, eınpfoh- 
tener Verkaufspreis 79,- DM. 

© Unterrichtsmedien Hoppius, 

Bannstr. 27, Wetzlar. 
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KEINE 


Die Karate-Schule sucht 


ihren neuen Meister 


Karate, eine alte und weitverbreite- 
te asiatische Kampfsportart, kön- 
nen Sie nun auch aufdem Commo- 
dore VG-20 erleben. Sie sind dabei 
in einer Karate-Schule, die ihren 
Meister sucht. Schauplatz des 
Kampfgeschehens ist eine dreidi- 


mensionale Arena in deren Mittel- 
punkt der Karateschüler zum 
Kampf bereit steht. Die Prüfung be- 


für VC-20 Grundversion 


genstände wie Steine, Flaschen und Kri- 
stalle zu zerstören. Für diese Aufgabe 


steht darin, herumfliegende Ge- I Spiel wird automatisch beendet. 


Cm] 


1 PRINT"{ELEARY" 

2 POKE36849 „255 

3 POKES6878, 15 

ı0 POKES2,28:POKESA,28 

15 ELR:FORR=0T051 1: POKE716B+R ,PEEK (32768 

+R} 3NEXT 

FORI=1T0255: READA: POKE7187+1 ,A:NEXTI 
REM##HARMSCHLAGMIER 
DATAO,60,118,127,88,126, 124,56 
DATAS2,65,91,91,216,223,207,225 
DATAO,0,254 ,248,0,192,224,0 
DATA2SS,255,127,127,126,126,251,19% 
DATAI,1,3,34 777, 14,14 
DATA199,195,131,7,15,15,20,28 

100 DATA12,12,15,1340,0,0,0 

110 DATA24,24,30,30,0,0,0,0 

120 DATAO,0,128,128,0,0,0,0 

125 REM#GRUNDSTELLUNG* 

130 DATA&Z,66,90,154,219,219, 195,221 

140 DATA205,101,117,113,125,124,231,197 

150 REM##FUSSCHLAG-LR# 

140 DATAs2,64,91,153,191,1971,128,255 
DATAO,0,128,128,128,128,0,0 
DATAL27,127,127,115,49,57,24 ,28 
DATAO,0,0,128,128,192,192,224 
DATA24,56,48,112,224,192,192,224 
DATA224,112,48,56,29,15, 14,4 
REM&FUSSCHLAG-0#% 
DATA255,255,119,54,48,48,112,112 
DATAF6 ,96,96,224,224,192,172,224 
DATA14,12,24,56,48,112,224 ,224 
DATA192,128,0,9,0,0,0,0 
DATAO,0,0,0,0,0,0,0 
DATAA3,67,133,249 ,249 ,249, 138,252 
DATA1,2,28,6Q0,124,248,112,32 
DATAOG,42,84,110,221,110,18&6, 108 
DATA24,90,36,203,211,36, 90,24 
DATA247 „132,132,132,244 ,20,20,247 


Lassen Sie den Kampfschrei „Jiehhh' ertönen und 
zerschmettern Sie alle Gegenstände. 





310 DATA189,37,37 ,37,37,37,37,189 
320 DATAZ3F,40,30,46,232,136,72,47 

330 NATAU,129,36,129,30,130,40,129 

340 DATA17,128,36,0,72,0,34,0 

350 DATAO,0,32,09,2,128, 16,0 

355 Wr31 

360 POKE3A877,8 

400 PRINT" £DOHN2 RIGHT4 RVSON} = — 
— {RVSOFEF" 

410 PRINT“ {RIOHTS RYSOH BLUES IXHHITEIKAR 
ATE-KIDIBLUEF I" 

420 PRINT"£RIGHTS RUSONHI \-— —— RES 
ürF} “ 

450 POKE364B75,150 

500 PRINT"{DOHNZ RIGHTIO AVSONYW{DOHN LE 
FTI@LDOHN LEFT}OLDOHN LEFTISCDOHN LEFTYe 
{DOHN LEFTI@LDOHN LEFT+E{LEFTIIRRLUPZ LE 
ET2I00{LEFT2 UP3Ya#{RVSOEF?" 

510 FORL=1T0300: NEXTL:POKE34875,0 

520 FORK=200T03640: POKE7&80+K ,„32:1NEXTK 
525 POKE34875,150 

530 PRINT"£UP RIGHTS RVSON}@@S{DONN LEFT 
HO{DGHN LEFTIBLDOHN LEFTYO{LEFTIIERBTDEH 
H LEFT3+H@{DOHN LEFTIO{DOUN LEFTIORE" 

540 FORL=1T0300: NEXT: POKES4875,0 

550 FORK=200T0340: POKE76B0+K „323NEXTK 
555 FOREI6I7E, 150 

560 PRINT"{UPZ RIGHLLO RYSONFETDOHN LEFT 
I@{DOHN LEETIBEIDOHN LEFTYOLDOHN LEFTYeTD 
OHN LEFTIS{DOHN LEFTYOLUPA4 LEFTZI@LUPIEL 
RVSOER}" 

570 FORL=1710300: NEXTL: POKE34875,0 

580 FORK=200T0340: FOKE7480+K, S2:NEXTK 
S8S5 POKE3S4975,150 

570 PRINT"<YPZ RIGHTB RVSONIEWBS{DOHN LEF 
T}SCDOWN LEFTIM(DOHN LEFTYSTBORN LEFTIBT 
DUHN LEFTYS{CDOHN LEFTIS{LEFTIIeWEL UPS LE 
EFZ>e{DOHN LEFTI@CDOHN LEFTI@CDOUN LEFT? 





Compute mib 


steht Ihnen ein Schiagreporteire, das aus 
drei Varianten besteht, zur Verfügung. Sie 
können es mit Hilfe des Joysticks abrufen. 
Für jeden zerstörten Gegenstand erhalten 
Sie 50 Punkte gutgeschrieben, die auf ei- 
ner Anzeigentafel zu sehen sind. Gelingt 
es Ihnen nicht, das betreffende Objekt 
beim ersten Versuch zu zerstören, oder 
:sind Sie mit dem Gegenstand kollidiert, 
zerfallen Sie in tausend Stücke, und das 
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@{DOHN LEFTIBLDGHN LEFTIE" 

599 FORL=-1T0300: NEXTL:POKE36875,0 

500 FORK=200T0360: POKE74B0+K „32: POKEISAO 
O+K,1:NEXTK 

700 FORY=12810255 

750 POKE3E87&,Y 

800 NEXTY 

900 FOKEF4B75,0 

1000 FORH=1TOSE 

1100 FÜKE7FS1,W 

2000 FORL=1T0250: NEXTL 

2100 POKE7932 ,W3 POKE7909 ,W: POKE7753,W 
2200 FÜRL=1T0250:NEXTL 

2300 FOKE7F78 „W: POKE7975 ‚W: POKE7374 ,W=:PO 
KE79796 „W: PIIKE7997 ,W 

4000 W=W-1L:NEXTH 

5000 FORL=1T0250:NEXTL 

10000 POKE7799 „Or FOKE7731,1:POKE7932,2:P 

OKE7953 , 5: POKE7974 „A: PÜKE7975 ,5:POKE797& 
8 

’ 

11000 FOKE7775 ,6: POKE7F97,7 

11100 PRINT"{BLACKY" 

12000 FOKE198,1:POKES31,131 


130900 NEW 


1 FOKEZ4878, 15: POKES6B79,27 

10 PRINT" tCLEARY" SPOKE3&BA9,255 

20 PRINT"£RVSON DOHN RIGHT3} 
___IRVEBFFS" 

30 FRINT"ERVSOK RIGHT2YA TRIGHTI4} NERFS 

DEF>” 

40 PRINT"{RVSON RIGHTY-TRIGHTN CRIGHTI4> 

KRIGHTINARWSGERF" 

SOUPRINT"ERFSONF. DI. TUT Tnmı 

SPACE+/] XSPACE RICHTI3> NISPACE WIRICH 

T3| CRIGYTI43 KRIGHTYN IRVSUFFY” 

60 FRINTTERVSOR UP RIGHTYTTTm 

IT TERFEDER>" 

70 FORT=1T07=:PRINT"IRVSOH RIGHT3N TRIGHT. 

14} HRYSOFF}"SNEXTT 

80 PRINT"IRYSON RIGHTZY, 

SERVSOFFY" 























90 PRINT" CRVSEON RIGHTI/IRIGHTIBINIRVSOFE 


= 

100 PRINT" ERVSON}FCRIGHTZOFNLRVSOERS" 
110 PRINT" CRVYSON UP} 

T{RVSOEFF" 

115 FRINT®(UPIS AIGHTSYZLNE"VD® 

200 DATA120,169,78,141,20,3,169,3 

210 DATA141,21,3,89,95,0,0,0,0,0 

220 DATA147,0,141,19,145,159,127 

230 DATA141,34,145,173,17, 145,41 

240 DATA4,141,73,3,173,17,145,41 

250 DATAB,141,74,3,173,17, 145,41 

250 DATA16,141,75,3,173,32,145,41 

270 DATA128,141,76,3,173,17,145 

280 DATA41,32,141,77,3,169,255 

290 DATA141,34,145,169 , 124,141 

300 DATALY,145,76,191,234 

400 FORI=0T0801 READX:FOKEI+828,X:NEXT:SY 
5828 

1000 POKESS448,0: POKESBA49 „0: POKEIB670,0 
ı POKE3B671 ‚0: PÜKESB7SR,O 

1100 POKEIB494 „0: POKESB692 ,0: POKEZE6493,0 
: POKES8757 „Os POKESB779,0 

1200 FOKES8713,0:POKESB714,0: POKE38715,0 
: POKE3B735, 0: POKESB780 ,0 

1300 FOKEFS736 ‚04 POKE38737 ‚0: POKESB759,0 
: POKESBFEL ,O 

1310 A=7928: B=7929:1=7950: 0=7951 :E=7971: 
F=7972: 6=7973:H=7993: 1=7994 

1320 4=7995:K=B015:L=B01&:M=8017:N=B037: 
0=8038: P=8039: 0=8059: R=H060: 85-8061: T=B0& 
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<O> 
<32> 


<1&0> 
<i&r 
<174> 
x87> 
<17> 
<a0> 
«42> 
<127> 
377 
x72>3 


<209> 
<38> 
a7} 


«22> 
22> 
<154> 
<23> 
<156> 


<189> 
«11> 


*87> 
<83> 


<200> 


x697 
<91> 
<141> 
“97> 


<102> 
<248> 


<2> 
<198> 
*2153> 
<197> 
<180> 
<255> 
2237 
<250> 
<210> 
s162> 
<119> 
35} 
<250> 


%210> 
<70> 
<14> 
<208> 
<73> 


204 > 


programme 


t 

1330 Ad=0: BB=1:0C=2: DD=-F: EE=4: FF=5:66=6$ 
HH=7: 1I=8: JJ=9:Kk=10: LL=ll 

13409 MM=12:NN=13:00=14:PP=15: Ole: RR=17 
55-18: T1=19: X%X=20 

1400 PDKER „32: POKEB „32: POKEJ ‚32: FPOKEM, 32 
1509 ZX=0:50T010000 

2000 POKEFD-1 ,2:PDKECA,AZ:POKECA, 21: FOKE 
GA+1,372; IFBN=1THENTOO00O 

2100 IFPEEK (841 )=OTHENASOO 

22009 IFPEEK (842) =0THENSOO0O 

2300 IFPEEK (844) =SOTHENAGCD 

25009 POKEI ,JI:POKEF ‚AA: POKEL  ,KKiFOKEO,FF 
zPOKEP , IIı POKEN,EE: POKEU „GG: POKER „HHı DA= 
ca-1 

2800 FD=FD-1 

4000 IFPEEK (CA) < >32THENS0009 

4100 POKECA,„AZ:PDKEFD,2:50TQ15000 

4500 BN=BN+1:POKEI,„LLıPOKEF „AA: POKEJ „BB: 
PDKEL „RR: POKEO , SS: POKER ‚21: POKEN ,21:POKE 
@,21 

44009 POKEP ‚21: PDOKEJ , TTıPOKEM,XX:FD=SFD-1ı 
TA=CA-I 

4450 IFPEEK tCA}=OTHENGÜUTGC40000 

4700 FOR1=0T9300:NEXTI 
4800 POKEM,„Z1:POKEJ,21: 
FOKEFD,2 

5000 BOTO20090 

&00G BN=BN+1:POKEF ,AA:PDKEI „BR: POKEJ,CE: 
POKEL ‚DD: CA=CA-1 

6050 IFPEEK (CA) =2THENGOTO4000D 

6100 FORI=OTOSOO:NEXTI j 
5200 1=7974: POKEJ ‚2i2POKECA ,AZıPOKEFD,Z 
7909 GOTO2000 

8000 BN=BN+1:POKEF ,AA:POKET ,LL:POKEL,DD: 
POKEL ‚NN: POKEO,PP:POKEN,21:POKET,21 

8100 PDKER,Z1:PÜKER,21:POKE „BO: POKEM,GB 
sbA=cA-1 

8150 IFPEEK CA) =21THENGOTO40000 

8209 FORI=1T0300: NEXTT:POKEM,21: 1279794: P 
OKECA,AZ:POKEFD,Z2 

8500 GGT020090 

100900 EA=INTIRND<1I#SI #1 

10100 AZ=INT {RND (1)#4) +22 

10200. IFCA=1 THENCA=7782:FD=38705 

19300 IFCA=2TRENCA=E004: FD=38725 

19400 IFCA=3THENCA=8070:FD=38771 

150009 IFZX=1THENSDTOLOO0O0 

1&000 GOTO20009 

S0008 Hk=2#: POKE354877 ,200 

30500 POKEL. „HK: POKEK HK: FORA=1TO150: NEXT 
350400 PDKES6877,180 

31000 PDKEH,HK: POKEI „HKzPOKED „HK: POKEN,H 
Ks FORA=I TDLSO: NEXT 

31500 POKES34877,150 

320009 POKEF ‚„HK:POKEE „Hks POKER „HK: POKEQ,H 
Ks IFHK=3S1 THENGDTOS40X0 

35009 HK=HK+1: 507030599 

34000 POKEL ‚52: POKEK ‚32: POKEH ,32sPOKEI ,3 
2: POKEOD „32: POKEN, 32: POKEF „32: POKEI „32 
35000 FOKEE ,32:POKER , 32:POKER, 32: POKEQ, 3 
2:POKEP „32 

36000 POKE35877,0 


1=7994:POKECA,AZ: 


37000 PRINT" {DEHNT RIGHTS RVYSONNYTTLRVSO 








FF} ar 

39000 GOTR41009 

40000 POKES5877 ‚15B: VD=VD+50: PRINT" (UPZ 
RIGHTHFYUD"" 

40100 FORI=11099: NEXT ı FOKECA+1 „27: FORI=1 
T097: NEXTzPOKECA+1,30 

40150 POKESZ4877,0 

40200 BN=0:FORI=1T099:NEXT1:POKECA+1 ,31: 
POKECA+1 „32+ ZX=1+ VE=250: GOTOLOOOO 

41000 IFPEEK (845) =0TKENRUN 

42000 GOTO41000 


Compube mib 


<74> 
<1> 


<47> 
<5> 
<144> 


<77> 
x122> 
<212> 
<Ab> 


<12> 
<163> 
<2&> 
<124> 


<a9> 


<9> 
<253> 
x206> 


<117> 
“2009> 


<997> 
<138> 
<73? 
«877 
<186> 


<1689> 


<i26> 
“183> 


<7#F> 
<130> 
x70> 
<225> 
<1&> 
x497> 
<245> 
<167> 
«2357 
<98> 
<147> 
«ii1l> 


27? 
<220> 


<Ba> 
<1297 


<24&> 


<167> 
<109> 


<1447 
<68> 


64 > 


%73> 
<2> 


<150> 
saß? 
x9> 
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Ein nützliches Anwenderprogramm für den VC-20 mit 3K-Erweiterung 


 DATA-MAKER 


Will man Maschinenprogramme oder an- 
dere wichtige Speicherbereiche (zum Bei- 
spiel die Daten für einen neuen Zeichen- 
satz) in Datazeilen ablegen, so ist dies von 
Hand sehr mühsam und extrem zeitauf- 
wendig. Da liegt es doch nahe, unseren 
Computer für diese Aufgabe einzuspan- 
nen. Er müßte sich halt selbst program- 
mieren. Dies ist mit der vorliegenden Rou- 
tine auf sehr komfortable Art möglich und 
wird in durchaus akzeptabter Zeit erledigt, 
da das Programm vollständig in Maschi- 


‚nensprache geschrieben ist.‘ Dennoch 


kann das Programm nicht zaubern und so 
muß man auf die Verarbeitung von z.B. 
1000 Daten ca. 15-20 Sekunden warten. 
Um nun in den Genuß dieser Routine zu 
kommen, gehen Sie wie folgt vor: 


@ Geben Sie den abgedruckten Basic- 
Loader ein und speichern ihn zur Sicher- 
heit ab. Die REM-Zeilen können dabei 
weggelassen werden, da sie für den Pro- 
grammablauf völlig unrelevant sind. Im 
Listing tragen sie sehr zur Übersichtlich- 
keit des Programms bei, in eingegebener 
Form verwirren sie eher. 

Da das Programm auf einem VC20 mit 
16 kByte-Erweiterung entstand, ist es 
möglich, daß Anwender mit kleinerer oder 
gar keiner Ausbaustufe die REM-Anwei- 
sungen sogar weglassen müssen. Unab- 
hängig davon ist die eigentliche Maschi- 
nenroutine, die relativ kurz ist, in jeder 
Ausbaustufe lauffähig. 


@ Nach dem Start mit RUN meldet das 
Programm (etwas Geduld bitte, die Datas 
rnüssen vorher eingelesen werden) Ihnen 
entweder einen Prüfsummenfehler in den 
Datas, Sie müssen dann die entsprechen- 
den Zeilen noch einmal überprüfen, oder 
es erscheint die Abfrage „Abspeichern 
(J/N)?". Kassettenanwender müssen hier 
leider Nein{N) eingeben. Da die Routine im 
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Kassettenpuffer liegt, ist es ohne weiteres 
nicht möglich, sie auf Kassette abzuspei- 
chern. Kassettenanwender müssen also 
jedesmal, wenn sie mit dem Utility arbei- 
ten wollen, den Basic-Loader einladen 
und starten. Auch jede Kassettenopera- 
tion zerstört das Programm; es muß da- 
nach neu eingeladen werden. Bequemer 


haben es da die Diskettenanwender. Dis- | 


kettenoperationen greifen nicht auf den 
Kassettenpuffer zu, folglich wird das Pro- 
gramm nicht beeinflußt und kann sogar 


als reines Maschinenprogramm auf Dis-: 


kette abgespeichert werden. In der Form 
belegtesnureinen Blockauf Diskette, und 
das lästige Einlesen der Datas entfällt 
dann bei späterem Gebrauch. Geben Sie 
dazu einfach Ja(J) ein, nachdem Sie eine 


Diskette eingelegthaben. Die Routine wird | 


dann automatisch unter dem Namen ”DA- 
TAGEN.CODE” abgespeichert. Eingeladen 
wird die Routine dann mit "LOAD”DATAGEN. 
C0DE”,8,1 ”, wobei Sie das ”,8,1” am Ende 
nicht vergessen dürfen, da Sie sonstan ei- 
ne falsche Stelle geladen wird. Nach dern 
Laden muß unbedingt ein NEW eingege- 
ben werden, um alle Basic-Pointer wieder 
zu normalisieren. 


® Haben Sie die Routine nun ordnungs- 

gemäß im Speicher, wird sie mit folgender 

Syntax aufgerufen: 

SYS 828, AWEWSZ 

AW, EW, SZ sind dabei jeweils Zahlenwerte 

aus dem Bereich von 0 bis 65535 und ha- 

ben folgende Bedeutung: 

AW gibt den Anfangswert an, mitdem die 
Routine beginnen soll. Später also der 
erste DATA-Wert. 

EW ist der entsprechende Endwert. Also 
später der letzte DATA-Wert. 

$Z gibt die Startzeile an, also die Zeilen- 
nummer, mit der die erste Datazeile 
versehen wird. Passen nicht alle Da- 


tas in eine Zeile, wird SZ von der Rou- 


Gompute emöß 


tine automatisch um 1 erhöht und 
dieser Zahlenwert als nächste Zeilen- 
nummer benutzt. Computerspezi- 
fisch sind nur Zeilennummern bis 
63999 erlaubt. Wird diese Höchst- 
grenze überschritten, gibt die Routine 
einen "ILLEGAL QUANTITY ERROR” 
aus, und der Pragrammablauf wird. 
unterbrochen. 


Am Ende liegt dann ein Basicprogramm 
vor, das nur aus DATA-Zeilen besteht und 
das Sie ganz normal abspeichern und an 
andere Programme anhängen können. 


OT ENUENOCHWIERTENG 


'Für unsere Rubrik 
| „WERKSTATT“ su-| 
chen wir weitere in- 
teressante und hilf- 


lreiche Anwender- 


programme. Das 
| Honorar beträgt 

120,- DM pro veröf- | 

fentlichte Seite. 


Die Redaktion 





Für Interessierte habe ich in das Basicpro- 
gramm ein kommentiertes Assemblerli- 
sting integriert. Die Idee besteht einfach 
darin, alle Werte auszulesen, die Hex-Zah- 
ten in die ASCII-Darstellung zu wandeln, in 
den Eingabepuffer zu schreiben und 
schließlich in die Systemroutine zu ver- 
zweigen, die den Eingabepuffer auswer- 
tet, Für C64-Anwender dürfte es mit Hüfe einer 
REFERENZ-LISTE 6-64-VC-20 kein Problem 
sein, die Routine auf dem G-64 lauffähig zu ma- 
chen. 
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REM 


SONDUBUNMO 
Pa 
m 
& 


10004 
10006 
10008 
10010 
10012 
10014 
10016 
10018 
10020 
10022 
10024 
10026 
10028 

10030 
10032 
10034 
10056 
10038 
10040 
10042 
10044 
10046 
10048 
10050 
10052 
10054 
10056 
10058 
10040 
10062 
10054 
10066 
10048 
10070 
10072 
10074 
10074 
10078 
10089 
10082 
10084 
10086 
10088 
10090 
10092 
10094 
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werkstatt 


KEERKKFEEEHHHRTHERHHRFHERH HH HR EHER NUR HR IHR HR HR RER EHRE KH ER IE NH 


KrAKkkh 


DATA-MAKER 


BELEGT WIRD DER SPEICHERBEREICH VOM 825 BIS 997 
SYS828,AW,EW,SZ 
 AW-ANFANGSWERT / EW-ENDWERT / 5Z-STARTZEILE ) 


SYNTAX: 


WRITTEN 


17895 BY 


WALDEMAR RAAZ 


FÜER DEN COMMODORE VCE20 


kr 


KRERREKURERRREREN ERKENNE EHRE NN RE RRHHHTR AN H THF HN HER ER HIHHER HH IRE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA: 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


20,DA,03 
8D,7B,03 
8C,7C,03 
20,DA,03 
85,FB 
84, FC 
20,DA,03 
AO,00 
A9,B3 
99,00,02 
AD,7C,03 
c5,FC 
70,10 
D0,07 
AS,FB 
CD,7B,03 
B0,07 
C0,00 
DO,SF 
4C,74,C4 
AS,15 
C9,FA 
90,03 
4C,48,D2 
84,FD 
A9,00 
AE,00,00 
95,62 
86,63 
A2,70 
38 
20,49,DE 
20,DF „DD 
A4,FD 
A2,00 

EB 

c8 
BD,FF,O0 
99,00,02 
DO,F& 
AF,2C 
99,00,02 
EE,7B,03 
D0,03 
EE,70,03 
C0,41 
90,AD 
A9,00 


REM 
sREM 
REM 


sREM 


REM 
sREM 
REM 
REM 
REM 
REM 
ıREM 
REM 
:REM 
ıREM 
REM 
ıREM 
REM 
:REM 
REM 
ıREM 
sREM 
zREM 
sREM 


zREM 


sREM 
»RKEM 
sREM 
REM 
REM 
aREM 
sREM 
REM 
REM 
sREM 
REM 
REM 
: REM 
:REM 
REM 
sREM 
«REM 
REM 


JSR 
STA 
STY 
JSR 
STA 
STY 
JSR 
LDY 
LDA 
sTA 
LDA 
EMP 
BCE 
BNE 
IL_DA 
CMP 
BC5 
UPY 
BNE 
JMP 
LDA 
CMP 
BCC 
JMP 
STY 
LDA 
LDX 
sTA 
STX 
LDX 
SEC 
JSR 
JSR 
LDY 
LDX 
INK 
INV 
LDA 
STA 
BNE 
LDA 
STA 
INC 
BNE 
ING 
EPY 
BEC 
LOA 


$03DA 
$037B 
$037C 
$03DA 
$FB 
$FC 
$03DA 
#500 
#383 
20200,Y 
$037C 
SFC 
$036D 
$0366 
$FB 
£037B 
$036D 
#500 
$03A9 
$C474 
$15 
#$FA 
50376 
$D248 
$FD 
#200 
30000 
562 
563. 
#390 


DC43F 
$DDDF 
£FD 
#300 


SOOFF,X 
$0200,Y 
$038E 
#$2C 
#0200,Y 
50378 
$03AS 
S037C 
#541 
0356 
#800 


Sompube mik 


ET SE a a A N A SS EA SEE N SEE A ARD OD TE A a a a a A a Se A A ae a 


STARTWERT HOLEN 
UND ZWISCHENSPEICHERN 


ENDWERT HOLEN 
UND ZWISCHENSPEICHERN ' 


STARTZEILE HOLEN 

TOKEN FUÜER ’DATA’ AN BEN BEGINN 
DES EINGABEPUFFERS SCHREIBEN 
ENDWERT SCHON ERREICHT ?? 


NEIN, DANN WETTERMACHEN 


JA, TEST AUF ZEILE IM EINSABEPUFFER 
POSITIV, DANN ZEILE NOCH EINBINDEN 
NEGATIV, DANN IN DEN READY-MODUS 
ZEILENNUMMER NOCH IM ERLAUBTEN 
BEREICH ?7 


NEIN, DANN "ILLEGAL BUANTITY ERROR" 


AKTUELLES BYTE HOLEN 
UND ZWISCHENSPEICHERN 


--> INTEGER IN DEN FAC SCHREIBEN 
==> FAC NACH ASCII WANDELN 


AKTUELLES BYTE IN DEZIMALER FORM 
IN DEN EINGABEFUFFER SCHREIBEN 


MIT KOMMA ABSCHLIESSEN 
AKTUELLE BYTEADRESSE ERHOEHEN 
EINGSABEPUFFER SCHON VOLL 7? 


NEIN, DANN NAECHSTES BYTE AUSWERTEN 
JA, DANN EINGABEPUFFER MIT 


Fortsetzung $. 34 
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software-service 





Heft 5/85 


Commodore 

Bestell-Nr. GORM CH 1/1 16,- DM 
Bestell-Nr. COM CD 1/1 
Senso (G-18/110), Jungle {C-64), Auto- 
start 16-64), Sequenzer [C-64, Sufa 
(G-54), Olympia (46-20), Flowers [MG-20) 


Schneider 


Bestell-Nr. COM SK 1/1 16,- DM 


Cobra, Krümi, Haunted Gastio, Q-Bert, 


BGM-EALLS 

Hett 9/85 

Commodore 

Bestell-Nr. GOM CK 3/1 19,- DM 
Bestell-Nr. COM CD 5/1 20,- DM 


Suparmoni 64 (G-84), Galany (C-84), At- 


lantis (9-64), $haolin (C-16), Haspiial 


(vc-20}, Flipper-Ball MG-20), Alien 
(VE-20) 

Schneider 

Bestell-Nr. COM $K 5/1 16,- DM 
Bestell-Nr, GO &D 5/1 38,- DM 


Busil, Crash, Citylander, Klandike, REM- 
Killer 


Heft 6/85 

Gommadore 

Bestell-Nr. COM CK 2/1 16,- DM 
Bestell-Nr. COM CD 2/1 20,- DM 


Hampfman (C-84), Softlanding (6-64), 
Karate (6-64), Einbrecher (WC-20), Tan- 
ker (46-20), Jupiter Rescue (NG-20), 
80$-Schiffbruch (C-18) 


Bestell-Nr. COM SK 2/1 10,- DM 
Tastaturbelegung, Cawe-Runner, Dik- 
$hurghand 

Reft 10/85 

Commedore 

Bestell-Hr. COM CK 6/1 10,- DM 
Bestell-Nr. COM ED 6/1 20,- UM 


The Castla of Dr. Eraap (UG-20), Gatchgo 
{V6-20), Sub-Zone (WE-26), The Maze 
Graze Game (6-64), Super-Breakowi 
(G-64), Planet of Death (6-64), Funk- 


tionstasten-Programmlerung [C-64), 
Car Reca (0-16/116), Key-Helper 
(6-16/116) 

Schneider 

Bostelf-Nr. GOM SK 6/1 16,- DM 
Bestell-Nr. COM SD 6/1 39,- DM 
Labyrinth, Catch, Mini Gar Race, Inks50- 
gra, Single Disk Backup 


Heft 7/85 

Commodore 

Bestell-Nr. COM CK 9/1 18,- DM 
Bestall-Nr. COM CD 3/1 20,- DM 


$ea-Attak (6-64), Saco-Age (6-84), Mic- 
ro-Tools (6-64), Disky 1.0 (6-64), Stunt- 
man (VC-20), Sepp (VC-20), Ballaon- 
Shoot (VC-20), Fartanfroh (6-16) 


Schneider 


Bestell-Nr. COM $K 3/1 16,- DM 
Bestell-Nr. COM SD 3/1 39,- DM 
Secret Yallay, Smileymat, 

Sugar-File 

Nett 11/85 

Gammolora 

Bestell-Hr. GOM GK 7/1 18,- DM 
Bestell-Rr. COM 6D 7/1 20,- DM 


Interproter Music-Language (6-64), Fi- 
relegian (C-64), Funktionstastenpro- 
granmierung (6-64), Schatztaucher 
(6-16), Dangerous Planet [NG-20), Gea- 
Zaxxon [(NG-29) 


Schaelder 
Bestell-Nr. COM SK 7/1 18,- DM 
Bestell-Nr. GOM SB 7/1 39,- OM 


Etis, Allen-Hunter, Demon-Attach, 0Da- 
tansarwaltung, Discshow 


Heit 8/85 

Commadore 

Bestell-Nr. COM CK 4/1 16,- DM 
Besteli-Hr. COM ED 4/1 20,- DM 


Dracker-List (UC-20), Fiowers I (VC-20), 
Dina Eggs (6-20), Piano (C-16/116), 
Taak-Duell (664), Vampir (664), Memory 
(C-64}, Raster Hegister, Interrupt (0-64), 


Bostell-Kr, COM SH 4/1 16,- DM 
Bostell-Nr. COM 5D 4/1 39,- DM 
Copter Patrol, $echrätsal, 

Tawar 

Haft 12/65 

Commodore 

Bestell-Nr. COM CH 4/1 18,- DM 
Brstelt-Nr. C0M CD 4/1 2D,- DM 


froggies Nightmare (VE-20), Wächter 
das heiligen Tempels (V6-20), Jumping 
Je (L-16/116), Gity-Runner (6-16/116), 
Mission Hascue (G-64), Turko-Jet 
(6-84), Print-Generator (6-64), Datage- 
nerator (6-84) 


Schuelder 
Bestell-Nr. GOM SK 8/1 16,- DM 
Bestell-Nr. COM SD 8/1 39,- DM 


Chocksummer 1.0 EPG, Two Cherry 
Chaps, Erwin Im Zauberschloß, Druck- 


steuerung NLO 401 


nn a ee nd nn 
Alle hier aufgeführten Kassetten und Disketten können Jederzeit nachhestellt werden. Bei don Zeltschriften sind dia Ausgaben 6/85, 7/05 und 2/86 leider vergriffen und kön- 
nen nicht mehr nachgsliefert werden. Bitte beachten Sie diez hei Ihrer Bestellung. 








Heft 1/86 

Commodors 

Bestell-Nr. COM CK 1/2 t6,- DM 
Bestell-Nr. COM CD 1/2 20,- DM 


Checksummer 1,0 6, Astronaut Battte (6-64), Hıeycohra 
(6-16/116), Hardcopyroutine (G-16/116), Helmut und die 
Zeitmaschina (L-16/116), Loces (WG-20), Aock'me 
(VE-20), Charly der Naketenmann (VG-20), interrupt- 
Programmierung (NE-20) 

Schneider 

Bestell-Nr. COM SK 1/2 10,- OM 
Bestell-Nr. COM SD 1/2 30,- DM 
Defender, Boulder Das®, Basic-Bofehle auf don Fauk- 
tionstasten 


Hett 4/66 


nn 
Conmadare 

Bestell-Nr. COM CK 4/2 16,- DM 
Bestell-Nr. COM CD 4/2 20,- DM 


Shuttle (VG-20), Jose in don Höhlen (VO-20), Merge- 
Reutine (#G-20), Shoot it WG-20), Fast Trust (6-64), Da- 
ts-Text 04 [C-64, Gary, der schnelle Kabelverleger 
{6-18/116), SDE (C-16/118), Beop-Rautins {C-16/116) 


Schnelder 
Bestell-Nr. COM SK 4/2 18,- DM 
Bestell-Nr. COM 8D 4/2 39,- OM 


Space-Aeseue, Texteditor, Starfight, Programm-Reiter 


Leserservice: Programme von 1986 


Heft 2/88 

Commardore 

Bestell-Nr. COM CK 2/2 16,- DM 
Bestell-Nr. COM CD 2/2 20,- UM 


Robo (6-64), Basic-Befehlserwsiterung (6-84), Rake- 
tenstart (6-16/116), Dreikampf (C-16/116}, Headline 
{6-16/116), Defender (6-20), Formel 1 (VC-20), Mema- 
ry-Display (VG-20) 


Schneider 
Bestell-Nr. COM $K 2/2 16,- DM 
Bestelt-Hr, GOM 8D 2/2 39,- DM 


Allen 2003, Hlamand Hunter, Directory 


Hett 5/86 

Commodora 

Bestell-Kr. COM CK 5/2 16,- DM 
Bestell-Nr. CON CD 5/2 20,- DM 


Space-Davit(C-64), Bisk-Eddi (C-64), ABG-Legarı (V-20), 
3-D-Lahyrinth (WC-2D), Tran (6-20), Invaders of Spaca 
(6-16/116), Submarine (G-16/116), Balkenıklagramm (C- 
16/116) 


Schnelder 
Bestell-Nr. COM SK 3/1 18,- DM 
Bestell-Nr. COM SU 5/1 99,- DM 


Startank, Grafik-Designer, Gross-Reference, Itext 


Gompute mik 


Heft 3/86 





Commodore 
Bestell-Nr, COM GH 3/2 18,- DM 
Bestell-Nı. GOM CD 3/2 20,- DM 


Kiror-Jumper (C-16/116), Karo (C-16/116), Data-Makar 
(C-18/118), Befohlsorwalterung (&-6ä}, Starchip (6-64), 
Mini-Gar-Race (6-64), Text-Seroller (6-84), Text-Editor 
(6-64), Checksummer [WC-20), Hobin at Navenwrack 
(V6-20), Mini-Karate (WG-20), Autonumber-Routine 
(16-20) 

Schneider 

Bestell-Nr, COM SK 3/2 

Bestell-Nr, COM $D 3/2 

Smily, Screpi, Die verrückte Fahrik, Disc-Holp 


16,- DM 
39,- DM 





Aus diesem Heft 





Commodore 

Bestell-Nr. COM CK 6/2 16,- DM 
Bestell-Nr. COM CD 6/2 20,- DM 
Schneider 

Bestell-Nr. COM SK 6/2 16,- DM 
Bestell-Nr. COM SD 6/2 39,- DM 


6/86 


software-service 












Programm Preis/ Preis/ Bestell-Nr. | Programm Preis/ Preis/ Bestell-Nr. 
Kassette Diskette Kassette Diskette 
IE 
Multl-Kay/S-Tool 04/ Bestellschein/Glücky 8,60 DM 15,- DM v6 
Interrupt-Programmo 10,-—- DM 21,-- DM U 2/85 .| Multigraph/All Rammer 11,-- DM 15,50 DM vr 
Spritehilte/Diskloader/ Zyklo/Mateorit 11,-- DM 18,50 UM vu 
Directory 21,-- DM - UG 3.1795 Sarten/Schioß Grusalsiein 14,-- DM 19,50 DM v9 
Taps-Directary/Asınon/ Fressman/Dutlaw 14,-- DM 19,59 0m y101 
Data-Generator 15,-- UM 21,-- BM Uc 3.2/85 Prost/Buffalo Bill 14,-- DM 19,50 u yı2 
Fast Laad 10,-- DM UC 4/84 Joy Nan/Powerpack 14,-- DM 19,50 DM 422 
Diskmanitor/Zeichensatz 20,-- DM - U 6/85 Der rasenda Malncher/ 
Resssembler/Maskengenerator 19,—— DM 20,-- DM UG 6/85 Frankie goes to Pharao t4,-- DM 19,50 DM v32 
Del 64/Treiberprogramm ' Matron/Dbst 14,-- DM 19,50 DM 42 
für 1528/MPS 802 Decslavator 14,-- UM 19,-— DM u6 7/85 Race On/Cayy 14,-- DM 19,50 DM 52 
$Supertapedirestory/Renew/ Nürkurg 3D/Däsi 14,-- DM 19,50 DM 82 
Kontrollahlrage 15,-- DM - UC 8/86 Broakar/Expulsion 14,-- DM 19,50 DM v72 
Viden-Lellities, Brückenbaw/Jango 16,-- DM 21,50 DM v3 
Multi-Basic V3, Bitdedltor 37,-- DM 23,-- DM v6 9/85 Inka-Schatz/ 
Better Basic/Autonumber/ Minor dar Fassadenstreicher 16,-- DM 21,30 DM v23 
Bardenny/'Terminalprogramm 17,-- DM 23,-—- DM UG 10/85 Boahy In Actlon/Bergshonting 16,-- DN 21,50 DM y33 
Speicher-Öszilloskop/ Zykta/Geldsammiler 11,50 DE - HE/V-1 
Makro-Assembler/Change Tepe 49,—— DM 54,-— DM UC 1/86 Star-Wars/Punkteiresser 14,50 DM - HG/V-2 
Reactor/koncentration/Datanhank 17,50 NM 23,50 DM RG/C-1 Catch ihn Fish/Mister Jump 14,50 DM - H6/V-3 
Warlards/Gaverns of Death 14,50 UM 19,50 DM HG/G-2 Ghast’s Egus/Fox Hunt 14,50 DOM - HG/V-A 
Alien-Dastroyer/Bueil 24,50 DM 28,50 DIE HE/G-3 Callector/Braak dut 14,50 DM - HG/N-5 
Ocean Game/Tenanis . 17,50 DM 23,50 DM BG/C-4 Q-Bert/Salvage Crew 16,50 DM - KG/U-6 
The Cavos 17,650 DM 23.50 DM HC/C-5 Dog Fight/Schwitzbad 16,50 DM - KC/V-1-4 
&ardener 17,50 DM 23,50 DM HC/C-6 Earıh Hascus 14,50 DM - HG/V-2-4 
Ufn/Skatehoard $arı 24,50 DM 29,50 DM HG/G-1-4 Tank 14,50 DM - HC-V-3-4 
Otympic Blathlan/ Torra 2/Pac-Ball 16,50 DM 21,50 DM KG/V-4-4 
Struggie for Life 24,50 DM 29,50 DM HC/C-2-4 Sprites/Space-Batile 13,-— DM 18,-- DM UV 2/85 
Pole Position/Save Grafik-Falnter 19,-- DM - uw 5/85 
yaur testh/Push 24,50 DM 28,50 N6/6-3-4 NIC-Clock B-- DM - UV 6/85 
Explorer 2/Pragrammname? 24,50 DM 29,50 DM KE/G-4-& Decelerator 9,-- DM - u 7/85 
Mauern/Widerstand 8,-- UM 15,-- DM ca Jaypalnt 12,-- DM - UV B/85 
Space-Comets/£rdspalte/ Disassembter, Old-Programma 10,-- DM - 2/85 
Sprite-Data 15,-- DM 23.30 DM 651 Directory/Farb-JRQ 10,-— DM - UV 10/85 
Autastart/Bestellscheln/ 
Roadpalnter 16,50 DM 23,50 DM 681 
Nardcopy/Space-Fightar/ 
Data-Genorator 15,50 DM 18,50 DM en 
Monster-Attack/Block- 
Painter/Epson-Drucker 16,50 DM 23,60 DM c8 
Projekt/Natenbank 36,-- DM 23,50 DM cs Autorennen 11,-- DM - US 3/85 
$piders/The Basic 16,50 DM 23,50 0M 6101 Universal-Datei Wt B-- mM - US 4/85 
Kigh Noon/Skeet/ Eomputerschritt/Symbol-Swap 10,-- DM - us 5/85 
grafik-Dasigner 17,50 DM 23,50 DM 6121 Keyboard Tonlkit/Farbdscodierung 1F,-- DM - US 6.1/85 
Painter/Stsr-Baddie/Editor 17,50 DM 23,50 DM 622 Alasin 9,-- DM - us 0.2/85 
Wüstenrally/Jet-Par/ Painter/Box-Beieh3 14,-— DM 24,—— DM us 7/85 
Black Maore Castie 17,50 DM 23,50 DW 632 Maschinensprache-Manitor/ 
Brieitaube/Gadelan 19,50 DM 24,50 DM 542 Disk-Hilfe 15,-- DM 25,-—— DM u5 8/85 
Ritter Erik/Grand Prix Spritehllfa 19,50 DM 24,60 DM t52 Basic, Maschinen-Kt 12,-- DM 22,-- DM US 9/85 
Firebird/High Music 24,50 DM 29,50 DM c82 Backup/Directory/ 
Moonsweeper/Scotli 24,50 DM 29,50 DM c22 Eilipsa/Disk - 27,-- DM 05 10/85 
Tron/Nercurlous 24500M , 29,50 DM 613 Dats-Generator/Grafik Toolkit/ 
Intercepior-Basal/Schotter 24,60 DM 29,60 NM 623 ASCH List (Turbo Pascal) 18,-- DA 25,-- DM US 1/86 
Jump-Man/Space-Taxi/The Way 24,50 DM 28,50 DM 633 Fallschltmspringer 9,-- DM - HE/SR-3 
Geilstorschluß 9,-- DM - AG/SR-4 
Zeichendesigner 12,50 UM HG/SR-5 


Mial Car Haca/Intercaptor 3 D 17,50 DM 26,50 OM HG/SR-6 


Neu in unserer Software-Bestell- BEN 1250 24,50 HC/SR-1-4 


* Onti’s „Saund“ 17,50 DM 27,50 DM HG/SR-2-4 
liste der Samson und dio Kisten/ 
Die verflixte 16 17,50 DM 27,50 DM HG/SR-3-4 
Moon-Landing/Panzer 17,50 DM 26,50 DM HG/SR-4-4 
-Super-Miner 14,-- DM 24,-— DM SRa2 
s CPC-Bort 14,-- IM 24,— UM $R 52 
Cosan's bastla 15,50 DM 25,50 DM 5A 62 
Fantasy-Cauntry/ Snlder’s Mace 18,50 26,50 DM SR 72 
Harror-Lastie 19,-- DM 23,-- DM 023 Schneider Panik/ Killership 18,50 DM 28,50 DM SR 19 
Moon Fighter/Goldrausch 19,— UM 24,-- DM 033 Horror-bavas/ 
Zeichendesigner 14,-- DM - u0 9/85 Midnight 18,50 DM 28,50 DM 5A 23 
OLD-Boutinz-Merge-Rautine/ Cosmis-Gastla/Spider-Maca/ 
Change Type 14,-- 19,-- ua 1/86 Traumltand 18,50 DM 28,30 UM 5A 33 


6/86 Compute mib 





werkstatt 


101058 DATA 99,00,02 :REM STA £0200,Y EINER NULL ABSCHLIESSEN 


3 
10108 DATA CB REM INY s UND LAENGE DER ZEILE BERECHNEN 
10110 DATA CB sREM INY H 
10112 DATA CB »REM INY H 
10114 DATA C8 sREM INY 
10115 DATA C8 »REM INY 


10118 DATA A9,C7 REM LDA #367 BASIC-WARMSTART-VEKTOR LMBIEGEN 
10120 DATA A2,03 ıREM LDX #303 
10122 DATA 8D,02,03 =REM STA $0302 
10124 DATA BE,03,03 zREM STX 30303 
10124 DATA A2,00 :REM LDX #800 
10128 DATA 86,7A sREM STX $7A 
10130 DATA CA sREM DEX 

10132 DATA 86,34 _:REM STX $3A 
10134 DATA AC,A2,C4 sREM IMP $C4A2 
10135 DATA A9,83 REM LDA #583 
10138 DATA A2,C4 ıREM L.DX #804 
10140 DATA 8D,02,03 sıREM STA 30302 
10142 DATA 8E,03,03 =REM STX $0303 
10144 DATA E6,14 sREM INC $14 
10146 DATA DO,02 sREM BNE $0307 
10148 DATA E&,15 sREM INC $15 
10150 DATA 4C,4F,03 #REM JMP $034F 


ZEIGER INNERHALB DER CHRGEET-ROUTINE 
AUF EINGABEPUFFER SETZEN 
DIREKTMEDUS-FLAG SETZEN 


we Wu a 5 GR Tr 


--> POGRAMMZEILE EINFUEGEN 
BASIL-WARMSTART-VEKTUR WIEDER NORMAL 


AKTUELLE ZEILENNUMMER ERHÜEHEN 


NAECHSTES BYTE AUSWERTEN 


10152 DATA 20,FD,CE sREM J5SR $CEFD > CHKCOM 
10154 DATA 20,8A,CD :REM JSR $SCDBA --> FRMNUM 
10154 DATA 20,F7,D7 sREM JSR $D7F7 --> GETADR 


10158 DATA A5,14 :REM LDA $14 
10169 DATA A4,15 sREM LDY $15 


ae re a 


10182 DATA &0 :REM RTS 
10200 = 
10210 RESTORE : P=0 
















10220 2 FOR I = 828 TD 999 PRINT"BABSPEICHERN <(J/N) ?" 
10230 3 READ AS GETG$: IFG$=""THEN104650 : 
10240 2 GOSUB 10500 -10465 IFG$<>"J"THEN10485 
10250 s a 104706 SYS57809 "DATAGEN. CODE" „8,1 
10260 2 POKE 1,6 : 10475 POKE251 ‚60: POKE252,3: POKE781 „232 
Se E NEXT I . 10480 POKE782,3: POKE780, 251355645495 

5 ‚10485 PRINT"LGESTARTET WIRD DURCH: " 
10290 3 IF PR = 20058 THEN 10400 10490 PRINT’EERI SYSB28,AW,EW,SZ" 
10299 : ‚10495 END 
10300 PRINT"LIHNEN IST BEIM ABTIF-"3 | 10499 :» 


10305 PRINT"PEN DER DATAZEILEN EIN"s 
106310 FRINT"FEHLER UNTERLAUFEN!” 
106315 PRINT"UEBERPRUEFEN SIE BITTE"3 
10520 PRINT"NOCH EINMAL DIE ENT-"z 
10325 PRINT"SPRECHENDEN PRÜGRAMM-"s 
10330 PRINT"ZEILEN!"sEND 

10397 3 i 

10400 PRINT"ESIE HABEN ALLE DATA-"; 
10405 PRINT"WERTE RICHTIG EINGEGE-"s 
10410 PRINT"BEN. WENN SIE MIT DIS-“; 
10415 PRINT"KETTE ARBEITEN,KOENNEN"; 


10420 PRINT"SIE DAS PROGRAMM ALS"; Auf der nächsten Seite 


10425 PRINT"REINE MASCHINENROUTINE": = S a Pr 
10233 FRInT-In Ben Fon mr en, — PFASENEEreN wir Ihnen ein - 
10445 PRINTAWMENDER sestenr niese-, WEHERES VC-20-Programm! 


10450 PRINT"MDESLICHKEIT NICHT!" 


: 10500 A$=LEFT$(AS,2) 

10510 Ail=ASC (LEFTS(AF,1)) EAZ=ASCIRIGHTS 
(A$,1)) 

10520 Al=A1-48: IFAI >9THENAL=AI-7 

10530 A2=A2-A8: IFA2>9THENA2=A2-7 

10540 A=16#rA1+A2 
RETURN 












Compute mik 6/86 


VC-20(3K) %  VC-20(3K) 


Er 


Programme 


VC-20(34) %  VE-20(30) 





Gehen Siemit (J-PIEHT zu Punktejagd 


Wer kennt es nicht, das bekannte „Q- 
Bert“-Spiel, das es inzwischen für alle Ho- 
mecomputertypen gibt? Wir veöffentli- 
chen hier eine Version, in der Sie die Auf- 
gabe haben, alle 3-dimensionalen Felder 
des Quaders umzufärben. 

Diese Aufgabe ist natürlich wieder nicht 
so einfach wie es sich vielleicht anhören 
mag. Rutscht Q-Bert nämlich über den 
Rand eines Feldes, stürzter sofort zu Tode. 
Außerdem wird er von „Helmut, dem 
Springer“ gejagt, der auch um Ecken 
springt, und somit ein Entkommen ziem- 
lich schwierig ist. Daneben müssen 


Sie noch auf die sogenannten „Schleim- 
Minen“ achten, die immer plötzlich vor Ih- 
nen auftauchen und dann wieder ver- 
schwinden. Als weitere Schwierigkeit 
kommt der Faktor Zeit hinzu, Sie sehen al- 
so, es ist ein recht schwieriges Unterfan- 
gen, die gestellte Aufgabe zu lösen. 
Wichtig: 

„Helmut der Springer“ und die „Schleim- 
Minen“ sind in der Lage, alle von Ihnen be- 
reits gefärbten Felder bei Berührung wie- 
der umzufärben. Aber auch Sie selbst 
können in die Situation kommen, bereits 
gefärbte Felder wieder umzufärben. Dann 


nämlich, wenn sie diese Felder erneut be- 
rühren müssen. Für jedes gefärbte Feld 
erhalten sie 2 Punkte gutgeschrieben, für 
jedes umgefärbte Feld, werden diese 
Punkte wieder abgezogen. Nach jedem 
geschafften Level erhalten Sie Bonus- 
Punkte. Alle 1000 Punkte erhalten Sie ei- 
nen Bonus-Q-Bert. 

Gesteuert wird das Spiel mit dem Joy- 
stick, wobei zu beachten ist, daß keine 
Diagonalsteuerung möglich ist. 

Da das Hauptprogramm automatisch geladen 


wird, bitte nach dem Laden des ersten Teils 


nicht den Daten-Recorder stoppen!!! 





















































EK SPACE>PRESENTS” <A4> 
112 PRINT"(DOWN2 RIGHTIFTUVIRIGHTE DOHN 
RIGHTS3WIRIGHTIYXTRIGHTIYYZT" <157> 
5 PRINT” {CLEAR} "SGOTOJO x138> 114 PRINT"{DOUNZ RIGHT2Y_{SPAGEI2FILRYSON 
10 se=s=2=noasS== me mem 3. tRVSOFFYSCRIGHT. RVSONY-{RVSOFE RIGHTY& 
zu <180> {RVSON} . IRVSBFFISSSPACEIIFBBLRIGHT DOHN 
15 =-==PYRASDOF T PROUDLY PRESENTS RIGHTEY ! {RIGHTZIESTELSPACE? ' ()R+TDOHN2I” 244% 
=== «237 125 TS="IHOHE RVSOH DOWNIF>" x38> 
20 seemmazsmeeasmemmmmsmssmmemenenn . 1350 PRINTT$”"INSTRUCTIONS{SPACEI?FLISPACEI 
sa=m x190> {F/NI" <ar 
25 === = THE QB-BERT SS 140 IFPEEK (197)<>20ANDPEEK { 197) < >28THEN1 
ER <Ba> 30 <227> 
350 sESsRermar ne Tnooeenpeneennanennnnne 145 IFPEEK {197)=2BTHEN179 <200> 
=== <200> 150 FORT=8054T08075: POKEC ,200r POKET+F „2: 
35 s======= FOR VIE - 20 + 3K-RAM === POKEC „O0: POKET , 189: NEXT: FORT=8163T091425T 
=== <79> EP-1 <172> 
40 SerS=S=====2 Se ocemmenan mn 152 POKEC 200: POKET+F ‚2: POKET,189:POKEC, 
zoom “210> O:NEXT “2532 
45 === (0) 6.4 1986 ANDREAS SPINDLER 155 PRINTT$"{RVSOFE GPSIFIRVSDM SPACEIHE 
=== <95> LMUT{SPACEZ RVSOFFIGIRVSON SPACEFSLIME-M 
0 =em==2=2==2=222220S OBERES onen INE" $213>. 
==== <220> 162 READTE$: IFTES="@" THEN170 <172 
55 su======m= TEL. 06242 / 3390 ===22= 164 FORT=1TOLEN(TES) sPRINTTSTAB (21) MIDE ( 
===- <95> TES,T,1I 2 PRINTTS"CSAACEI "CHRE (20) <198> 
0 s===22mzEISS Er meeemeamgES 5 164 FÜORY=1T05:POKEC-2 P) 2402 POKEC-2, oO: PÜRE 
zur <230> C,250: POKEC,0:NEKT <a8> 
65 ===emzse= ALL RIGHTS RESERVED !! === 148 NEXT:GOTD1&2 <55> 
==== <47> 170 FORT=B010T0B163: POKEC „245: POKET ,323P 
70 su=ee==S=S==SnS2=S22S SE OKEC,Oz2FORY=1T0O10:2NEXTY,T <41> 
=o== <240> 172 POKEC+3,25:PRINTT$"CHHITE RVSDFF UPS 
75 REM x218> 3"=POKE198, 1: POKE&31,131:END <204> 
80 REMEMBER THE NEW PYRASOFT-SANES TEL. 500 FORT=71&BT07455: READA: POKET ,A:POKEC, 
06242/3390 <33> B:NEXT:FORT=7670T07679: READA: POKET „A:NEX 
85 REM <228> TiRETURN <2&> 
979 F=30720:0=3697&: FOKEC+2, 19: POKEC-7 ,25 s01 DATA1,3,7,15,31,63,127,255,255,255,2 
5: FORT=0T950: POKE7680+T,T %30> 55,255, 255,255, 255,255, 255,255, 253,249,2 
95 POKEFARO+FT+F „OsNEXT <254> 41,225 <203> 
100 FRINT"{RPSOH DOHH4 BLACKIDONTTSPACE}I 502 DATA193,129,1,3,7,15,31,63,127,255,2 
SWITCHLSPACEFOFF {SPAGE>TAPE SPACE !{DOHN 55,255,255,255,255, 255,255, 255,255,255,2 
SPACEF+PLEASEISPACEFWALITTSPACEH "rt POK 53,249 <107> 
ES2,28: POKES6 ‚28; S05UB500 *166> 504 DATA241,225,193,129,255,60,90,109,25 
105 POKEC+Z,255 <115> 5,70,165,255,255,189,36,219,231,231,153, 
110 FRINT"{CLEAR BLACK DOWN RIGHTTY y—./a 255 <248> 
3<"1PRINT"{RVSON DOWN RIGHT2IPTIYELLOHNRT 50& DATA165,153,66,102,90,165,195,195,10 
REBIYOSCYANMINPURFLEIDIGREEN3LIBLUEIYEBEA 2,153,219,219,155,102,564,66,127,126,126, 
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Compube mib 


3 


36 


programme 


176,126 
508 DATAL24,126,129,255,195,189,189,187, 
189,195, 255,255,231,219, 187, 189,219,231, 
255,255 

510 DATA255,231,217,219,231,255,255,255, 
255,255,251,231,255,255,255,28,78,128,12 
8.112 

512 DATA14,226,28,28,98,128,128,128,66,7 


6,48,56,68,68,132,130,130,78,28,24,36,66 


„68,120 
514 DATA1L44,136,132,54,70,54,64,224,120, 
140,112,254,130,238,40,40,40,40,56, 238,1 
70,170 

516 DATA196,150,184,170,238,254,130,142, 
194 ,160,190, 130,254, 124,130, 186,170,170, 
190,137 

518 DATA126, ,„124,130,124, ,,,252,130,218 
‚100,70,194,130,252,124,150,186, 170,186, 
132,178 i 

520 DATA238,255,255,24,24,24,24,24,24,12 
6,126,24,24,24,24,126,126,199,238,254,25 
4,214 

522 DATA198,196, 198,254, 254,172,240,240, 
192,254 ,254,60,64,153,161,161,153,66,60, 


,s 

524 DATA, ,141133,85,149,230,148,154,196,, 
417739:,49,85,87,85,229,169,169,,48,40,4 
0,69,69 

526 DATA73,114,,131,196,154,38,72,200,47 
,,49,42,42,42,113,91,96,,12,18,16,8,4,34 
‚28 

528 DATA,50,72,74,114,176,132,132,,57,82 
„114,84,148,148, 151 ,,4,132,156,72,00,144 
„14, 

530 DATAS1,67,101,134,137,137,105,15,25, 
50,100,248,192,172,192,98,78,100,105, 115 
499,99 

532 DATA9F,40, 100,200, 145,227,67,39,35,& 
Q,100,2092 144,231 ,398,39,372,60, 126, 102,19 
2,102 

534 DATA126,60,,28,60,124,28,20,126,124, 
‚50, 126,78,20,48, 126,126, ,60,126,70,28,7 
0,126 

556 DATA&O, „6, 14,22,38,126,126,6, ,1264,12 
6,54,124,6, 126 ,60,,30,80 

538 DATA120,124,102,126,60,,126,1264,70,1 
2,24,24,24,,24,60,36,126,102,126,60,,60, 
126,102 

540 DATA&2,14,29,56,,24,49,95,125,15,27, 
51,99 ,49, 115,214, 159, 29,44 ,,76, 140, 255,24 
‚48,96 

541 DATAI&,96,76,96,162,255, 138, 141,15,% 
44,202,208,2439,96 

542 DATA" TSPACESIHELLUESPACEIFREAK SPACE 
}11CHPACENVOUR TSPACEFOBJECTISPACEI ISTSPA 
GEH LTISPACEITOLSPACE 3 SCORE TSPACEIASTEPAC 
E3MANY SPACEIPDINTSTSPACEIABTSPAGEHPOSSI 
BLEY* 

544 DATA"BYLSAACE}CHÄNGINGTSPAGEFTHEISPA 
GCE>COLORESPACEIOF SPACE} THE TSPACEICUBEST 
SPAGEIWITHISPACEI VOURTSPACEIG=BERTTSPACE 
3FROM{SPACEFATSPACEISTARTINGTSPACEICOLOR 
LSPACEN" i 

546 DATA"TOTSPACEIATSPACEIDESTINATIONTSP 
ACEICDLOR. CSPACEIVOL LLCSFACEISTART{SPAC 
E3 THETSPAGEIBAME TSPACEIWITHISPAGEI THREE 
SPACEIUHBERTS. CSPACEY" 

548 DATA"THEISPACEIFIRSTSPAGEIGHBERT SE 
ACEFWILLISPACEFAPPEAR{SPACEIONTSPACE} THE 
<SPACE> TOPMOST {SPACEY CUBE TSPACEFWHENTSPA 
GEYTHE (SPACE GAME TSPAGEISTARTS. SPACE)” 
550 DATA"BEISFACEICAREFULLTSPACEINOTISPA 
CEITOLSPACEIHOPE TSPACEIOHBERT TSPACEFOUT € 
SPACEIOF {SPACE} THETSPAGEICUBES, ISPACEIIF 
TSPACE} YOLHSPACEIDO ,HETSPACEIFALLSTSPACE 
3ANDISPACE" 


















































<196} 
55 5 02 


x85> 


<130> 
<156> 
<240> 
<241> 
<92> 

<165> 
<92> 

<88> 

<240> 
<139> 


<a0> 


<122> 
<73> 
<14> 
x2> 


<1557 


<a4> 
s1345 


«317 


x98> 


552 DATA"YÜLISPADEILOSETSPAGEFTHATTSPAGE 
+0%*BERT . BUT{SPACE> THERETSFACEFARETSPACEI 
MANYLSPACEIDTHER SPACEFDANGERSTSRACEF ! IS 
PACEI" 

554 DATA" TSPACEIBETSPACEICAREFULLTSPACEN 
OF{SPACEFITHE TSPACEFAWHFUÜLL SSPACEHMONSTERL 
SPACEIHELMUTSPACEF !X{SPACERF IFTSPAGEIHE " 
S{SPACEITATCHINGL{SPAGEF YOU, ORTSPACEI" 
556 DATA"YOL RETSPACETRUNNING{SPAGEIINTS 
FALEFONELSPACEIOFTSPALE YTHETSPACEISLIME- 
MINES, YOU ’LLISPACEFLOSETSPALEITHATTSRACE 
+B*BERT{SFACEFTOD. VSPACEY" 

5609 DATA"HELMUTISFPAGEFANDLSPACEFTHETSPAG 
EISLIME-MINESTSPAGE3BREISPATCEICHANGBINGEEZ, 
PAGEITHEISFACENCUÜBES ' ISPACEICODLORSTSPAGE 
YIF{SPACEITHEY{SPACEIWANTLSPACEF {SPACE} 






























































562 DATA" ISPAGENTHISTSPACEIALSOTSPACEHHA 
FPENS „WHENTSPACEFVOURTSPACEIO®BERTTSRACE 
YIS{SPACEHJUMPINGISPAGEFONTSPACEFATSPÄLE 
+CQLOREDISPACEICUBE. TSPALEY" 

SA4 DATA"ATTSPALCEFTHETSPACEHENDISPAGEIOF 
XSPACEFEVERYISPACEILEVEL TSPALEIYOU'LLISP 
AGEFEARNTSPALEFBONUSTSFACEI-TSPACEIPOINT 
8. ISPACE>" 

565 DATA"YOU"LLTISPACEIBECOMETSPACEFALSPA 
CE+BONUSTISPACEI-TSPAGE3O#BERT {SFAGCE}EVER 
VISSATEIIOOGISPACEHFOINTSTSPACEN | ISPAGE} 


























SAB DATA" (SPACEHFORCSPACEIPLAYINGESPACEI 
USEXSPACEI JOYSTICK. TSPACE2I" 

570 DATA" CSPACEFYOULSPACE>MUSTNTESPACEN 
MOVELSPACEFTHETSPACEISTEICKLSPACE}DIAGONA 
LYESPAGEF N 

572 DATA" {SPACEZIHNOWTSPACEIPYRASUFTCSPAC 
EIWISHESTSPACEFMUCH(SPÄACEFFUNTSPAGEIBYLS 
PACEIPLAYINGTSPACEITHEISPAGEIGBAME. " 

574 DATA" {SPACE2} "THETSPACEIORBERT "TSPAC 
Er IS{SPACEHATSPACE} TRADEMARKTSPALEIOF SP 
ACEIANDREAS{SPACEISPINDLERTSPÄLENF LSPACE 
3PYRASOFT „AND{SPACEHIBEDTSPACEFBY {SPALEZ 
yu 

57& DATA"TISPACEIRISPACEIOLSPACEINTSPACE 
FILSPACEICISPAGEZI- TSPACE2YVERLABCSPACEI 
GMBH. (SPALENUNDERCSPACEIAUTHORIZATION. £8 
PACEI” 

578 DATAYLSPACEZICOPYRISHTISPACE2YG.ATSP. 
ACE}1Y9B6 TSPAGE>ANDREABESPACEISPINDLER. {$ 
PACE213","@" 















































10 REM ======SRr23S55=2==2SS0 2520222220 
15 REM THE @-BERT 










20 REM = a a a a a Et EN TE I U EZ 

40 REM = = VON ANDREAS SPENDLER == 

45 REM ======== TEL. 06242/3390 ==Ssso2e2 
=0 REM 


40 POKE36869,242 
70 IFPEEK (37151)=42THENPOKE646 „RND (1) #17 
zPRINT"{CLEAR DOWNT. RIGHTI-ATASETTEISPAC 
E:STOPPENLSPÄCE} ! ! ":GOT07O 

100 F=30720:A=7709: C=36976: DD=-1:LI=3:C5 








"=1000: B0=50 


102 AS(OI="RIGHTEITUNTRIGHTIWXYVZT"TARL 
ZI="LRIGHTI_TRIGCHTIALRVSONY "IRVSOFFIBAIR 
IGHTI I KRICHTIRSZRLSPACE O4" 

104 AS C1)=" ERIGHTEI I CRICHT2I ,—. Fr <" 

110 POKEC+2, 15: POKEC-7 ,255 

120 FOKREC+HT, 238: Bt1)=.ıX2=.:X1=,: LE=INT( 
RND (1) #53 2 IFLE=OTHENI12O 

121 PRINT" CGLEARY"SONLEGOSURI25,125,140, 
146 

122 60516132: 6070200 





Compute mib 





*248> 
a33? 


«145> 


2237 
<1457 


<221> 


s221> 


x38> 
SP: 


<144> 


<21d> 


«152> 


337 

<141> 
<a5> 

222: 
1377 
<1F3> 
<ı71> 


<38> 
<183> 
<126> 
<2B> 
x211> 
<a3> 


<x42> 
1745 
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125 Fil=1:P=Art:Ai=INT (RND(13#8} : A2=INT {R 
ND<1)%7) : AS=INT {RND(1)#8) 

126 Q=. :A4=INT (RND (1) #8) 3 IFA4=A3DRAZFSLOR 
A4=1 THEN129 

127 IFAISZDRA2<SITHENA1=7:AZ=& 

128 IT=(A1”2+A2"2) #2. 5: A1l=A1ir43: AZ=h2u24 
» FORT=OTOALSTEP43: FORY=OTOAZSTEP24 

129 POKEA+T+Y,O: POKEA+1+T+Y „1: POKEA+rZ+T+ 
Y,2r POKEA+22+T+Y,1: POKEA+ZS+T+Y,1 

130 POKEA+22+T+Y+F „AZıPOKEA+23+T+Y+F AS: 
8=0+1: NEXT: POKEA+FT+Y „206: NEXT: Q=Q9-1,5C0=8 


"6+2 


151 RETURN 

132 POKEP-1 33 POKEP „4: POKEP+1,5: PÜKER-1+ 
F,A4:POKEF+F „As: FOKEP+1+F „As: RETURN 

149 P=A+22: AA=41AS=0: PRINT" IDOHN HHITE 5 
PACESI@AR 

141 PRINT"{SPACES BLACKIABCHHITEIEAB 

142 PRINT"{SPACESI@ABTBLACKFAATHHITEI@AB 
143 PRINT"{SPACES BLACKYARCHHITEF@ABIBLA 
CKIARCHHITEI@AB 

144 PRINT” {SPACES3@ABTBLACKIAACHHITEI@AB 
TBLACKYARCHHITEFEAB 

145 PRINT"{SPACE4 BLACKIARACHHITE>@AB(BLA 
CKIARCHHITEIBABIBLACKFAR{HHITEI@AB 











14& PRINT" ISPACESIBABTBLACKIAATCHHITEIEAB. 





TBLACKIARCHHITEIEBABTBLACKFRACHHITEYeRAB 
147 PRINT" ISPACES BLACKYARCHHITETFEABIBLA 
CKIYAA{MHITEF@ARTBLACKIARTEHITE RUVSONFFER 
VSUFF SPACE2 BLACKYAATHHITE RVYSONTF 

i48 PRINT" ISPACEZF@ABTBLACKTRAXHHITEIERB 
TBLACKYAACHHITE RVSONFSTRUSUOEF SPADEIIEA 
B 











149 PRINT"{SPACE2 BLACKYAATHHITEI@ABTBLA 
CKIAACHHITE RVSON}/TRVSGFF SPÄGEA>CABTBL 
ACKYAACHHITE RVSON}/ 

150 PRINT"ISPACE}@ABCBLACKYAACHHITE RVSO 





" NI/CRVSOFF SPACEAIEABIBLACKI AATHHITEICAB 


151 PRINT"{SPACE BLACKYAATHHITEI@ABTSLAG 
EZI@ABCBLACKIARCHHITEI@ABEBLACKIAACHHITE 
RVSOH}/ 

15? PRINT"ISPACEZ BLACKIAACHHITEFERBEBLA 
CKFAACHHITEIBÄBIBLACKIARTCHHITEI@AB 

153 FRINT"ISPACES BLACKIAACHHITEF@ABIBLA 
CKIARCHHITEFBABTBLACK)AACHHITE RVSONY7 
154 PRINT"{SPAGE? BLACKIAATCHHITEI@ABLBLA 
CKYAATHHITE}eAB 

155 PRINT"ISPACEF? BLACKIAATCHHITEYIEABTBLA 
CKIAATCHHITE RVSON}/ 

.156 PRINT"{SPACEI1 BLACKYAATCHHITEYERBESP 
ACE19 BLACKFAATWHITE RUVSON}/": 1T=150:0=3 
7:RETURN 

140 P=A+22: A3=4:A4=7:PRINT"IDEHN SPAGESY 
@AB 

161 PRINT" CSPACES PURPLEIOACHHITEI@ARB 
182 PRINT"t SPACESI@ABLPÜRPLEIBNCHHITEI@A 
B 

163 PRINT"(SPACES PURPLEIAATHHITE RVSON} 
SXRVSUEF SPACE2 PURPLEIRACHHITEIGAB 

164 PRINT"{SPACESF@ABISPALES PURPLEFARATH 
HITEI@AB 

165 PRINT"ISPACE4 PURPLEYAATHHITEIEABTSP 
ACES PURPLEFAATCHHITEFSAB 

1&& PRINT" ISPACEZIRABLPURPLEIAACHHITEIG@A 
BISPACES PURPLEYANTHHITEF@AB 

167 FRINTr{SPACEI PURPLEFARCHHITEF@ABIPU 
RPLE>IAA{HHITEI@ABISPALES FURPLEFARIHHITE 
RVSON}. 

158 PRINT" ISPAGEZI@ABT{PURPLEIFÄATCHHITEIER 
B{RURPLEHABTHNITEIB@AB{SPATEZIEAR 

169 PRINT"{SPACEZ PURFLEFARCHHITE RVSON! 
SARVSBEF SPAGE2 PURPLEIARTHHITEFERBIPURR 
LEIARCHHITEICARLPURPLE >AACHHITE RVSONY.- 
170 PRINT" TSPACEFEABTSPACES PUR PURPLEFARATHH 
ITE?&AB{PURPLEIAACKHITEFCAB 
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“ZA 


<108> 
<31> 


<176? 
<49> 
1585 
x17> 
<154> 


*30> 


s215> 


x105> 
<104> 
“rk> 
<91> 


«15? 


<159> 


xa2> 


x239> 


<175> 


<259> 
<203 

<204> 
<251> 


<1687 


“205> 


<165> 


*87> 
<1> 
<4537> 
*120> 
<100> 


<212> 


<ı135> 


<1So> 


3F> 


x“120> 


programme 


171 PRINT"£SPACE PURPLEIGACHHITEF@AB{SPA 
CES PURPLEIAACHHITEI@AB(PURPLEIARCHHITE 
RUSON}/ 

172 PRINT"{SPAGEI PURPLEIARCHHITEI@ABSP 
ACES PURPLEIAACHHITEI@AB 

173 PRINT"{SPACES PURPLEIAATHHITEI@ABISP 
ACES PURPLEIAACHHITE RVSONI 

174 PRINT" {SPAGEZ PURPLEIAATHHITEI@ABISP 
ACEZI@AB 

175 PRINT"ASPAGES PURPLEIARCHHITEICAB{PU 
RPLEHAACHHITE RVSON?/ 

176 PRINT"{SPAGELI PURPLEFAACHHITEI@AB 
177 PRINT" CSPACEIZ PÜRPLEFAATHHITE RVSON 
3."3 1T=1505 0=31: RETURN 

290 REM 

202 POKEC+2, 15: IFRND(1)#2< 1 THEN3SO 

205 IFRND (1) *2< 1ORB( 1) -OTHENGOSUBZOO 

210 1FZITHENZ1=0:B80T0500 

IFPEEK (B(1) +1) =2THENPOKEB(1) „1 
IFPEEK {B{1)+1) =STHENPDKEB (1) „4 
IFBITHENB (13=B1 

Pi=INT (RND (1)%*8) ı IFPISOTHENPI=24 
IFP1=1THENP1=-24 

IFPI=2THENPI>43 

IFPI=STHENP1=-43 

IFPI=3THENPI=67 

IFPL=STHENPI=-67 

IFPi=ATHENP1=19 

IFPL=7THENPI=-17 

IFPEEK (B{1)+P1)=1THENIFPEEK (B(1)+P1+ 




















'41=ZTHEN250 


242 IFPEEK (B{1)+P1}=4THENZSO 

244 IFPEEK (Bil) +PL)3=BTHENTD=2: G0SUB6&00:G 
OT0542 ; 

245 POKEB (1) ‚4565010500 

250 RBil)=Bti1)+Piz POKEB (1) „ai IFPEEK (Bi1}+ 
13 =5ANDRND (1) %#3< 1 THEN2&0 

252 FORT=127T01S0STEPB:POKEC-2,T:FORT=15 
0T0127STEP-8: POKEC-2,TzNEXT 

255 POKEC-2,0: 60T0500 
240 POKEB(1)-1,0:POKEB(1) 
LPOKEB(1} „& 

2645 POKEB{1)-1+F,1:POKEB(1}+F,13POKEB{L) 
+1+F ,1:0=9+1:S6=5C-2 

7 IFPEEK <B (1)+23) =Z06THENPOKEB(1)+F+23 


‚AzPOKEB(11+1,2 


378 FORT=220T0240:POKEC, TıNEXT:FORT=240T 
U220STEP-1:POKEC,T=:NEXTF 

280 POKEC „0: GOT0500 

300 Bi=INT (RND (1) #506) +7658: IFPEEK (B1)< > 
STHENIFPEEK (B1+1)=2THENZ2O 

305 IFPEEK (B1}=3THEN32G 

310 Z1i=1:B1=0 

320 RETURN 


350 IFX1=0THENXS=INT (RND (1}#42) a X2=1INT (R 


NP{1) #X3} :%1=1:6G0T05355 

352 IFX1THENFORT=OTOXZ: G0SUB4001 X2 (T}=9: 
NEXT: X1=0: 6010509 

355 FORT=O0TOX?2+ ENSUBS00: IFZITHENZ1=0:NEX 
T:BOTOSOQ 

360 X2(<T}=Bi: IFPEEK (X2 (TI) =BTHENTD=2:605 
UB&00: GOTOS6Z 

370 POKEX2{T} „7:NEXT:GOTOSON . 

4006 IFPEEKtXZ{TI+LEI=ZTHENPOKEXZ {TI ,1 

410 IFPEEK (XZ(T}+1)=5THENPOKEX2<(T) „A:IFR 
NBC1)#2< 1 THENGOSULB425 

420 RETURN 

425 POKEC+2, 55 FOKEX2(T) 1,0: POKEXZ (TI -1 
+F „1: PÜKEX2{T} „AS POKEXZLTI+F,1:POKEX2(TI 
+1,2 

428 IFPEEK (X2<T) +2%3=204THENFORKEXZUTI+F+ 
25,13 

230 POKEX?T)I+1+F , 1: FORY=255T01275TEP-1: 
POKEC-2,Y:NEXT: FüRv= 12770295: POKEC-2,Y-N 
EXT 


Compute mik 


e7i> 
<&3> 
<x121> 
<B> 


“AB> 
<196> 


1253> 
<B7> 

<159> 
<199> 
x225> 
<111> 
«212> 
<236> 
x157> 
<140> 
<135> 
21&2> 
<211> 
<244> 
<195> 
<225> 


<251> 
“254 > 


x1970> 
rsgr 


<1F72> 


<131> 
<140> 


x72?7 
144> 
<Bi> 


xiö8> 
<117> 


243 
<109> 
<18> 
<207> 
<136> 
<105> 
<13> 
<36> 
<159> 
945 
2&0> 
«51> 
57% 


“53 


x235> 


a 











Programme__ 


435 POKEC-2,0:5C=5C0-2:9=9+1:RETURN 

500 J1=PEEK (37137) : POKEF7134, 127: J2=PEEK 
(37152) ıPOKE37 154,255 

Sol PRINT"{HOME WHITE RIGHT12 BLACK}OPOR 
S"INTLSCI"{LEFT SPAGEY" 

502 IT=IT-1: IFIT<S=ÖTHENTD=2: GOSUB600: GOT 
0552 ’ 
503 PRINT"CHÜOHE DOHNZI RIGHTYCNIT"INTCIT 
INLLEFT SPACEY" 

504 IFJ1=424ANDI2=247THENIT=IT+.5: 607020 





o 

50& POKEP-22 ,32: POKEP-224F „A3: POKEP+F,A4 
ı IFPEEK (P-21) =1THENPOKEP-22,1 

507 POKEP „4: IFPEEK {P-1) =OTHENPÜKEP „1 

508 IFL1THENL1=0:POKEP+F ,1 

510 IF(J1AND4I -OTHENPI=-43 

515 IFtJLÄANDS) =OTHENPI=43 

520 IFCIAANDI6)=OTHENPI=-24 

525 IFtJZAND128) =OTHENPI=24 

526 P=P+P1s IFPEEK (P)=1 THENSS1 

527 IFPEEK(P}=4THENS3S5 

528 IFPEEK (P)=60RPEEK (P) =7THENTD=2: GOSUB 

600: GUTISE2 

529 TD=1:B(1)=0: B0SUB600: GOTOS62 

531 POKEP-1,31POKEP ‚43 POKEP+1 „5:3 POKEP+F- 
1,A45PÜKEP+F „Asr POKEP+F+1 ,A4: AS=1 

532 @=9-1:80=SC+2> IFPEEK (P+23)=206THENPO 
KEP+23+F „NA 
534 6070540 
535 POKEP-1 ,0:PDKEP,1:POKEP+1 ‚2: POKEP-1+ 
F,1:POKEP+F „13 POKEP+1+F ‚1 

5364 B=e0+1:5C=56-2211=1: IFPEEK (P+23) =206T 
HENFOKEP+2S+F „1 

540 FORT=15T05: POKEC+2, Tı:POKET, 200: NEXT= 
POKEC+2, 157 POKEC,O 

541 POKEP-22,9: POKEF+F-22,0:POKEP ,B:POKE 
P+F,O 

542 IFASTHENFORY=242T02525TEF (RND(LI#7I+ 
„3: POKEC,, YıPOKEE „O2 NEXTSAS=O 

S44 IFO=SOTHENSSG 

545 GOT0200 

550 GOSUBASO 

562 FOKEC+3,25: SC=INT (SC) 

563 IFTD< > THENPRINT"CLEAR DUHNS RVSON 
REDIB{SPACE CYAN3OTSPACE FURPLE>NISPAGE 
GREENIUISPACE BLUEISE CRVSOFE "BO" {RVSON 
LEFT SPACE}POINTS! "sSC=SCHBO+TTı BO=BO+25 
564 IFTD<>LTHENGOSUBRSO 

565 PRINT"{CLEAR DOHN HHITEI”" 

566 POKEC+3,83DD=DD+1:FORT=1TOLEN(A$ (DD) 
)PRINTLEFTF{A$ (DD) „TI "LUPF" 

568 FORY=1T06: POKEC,2004POKEC ,O:NEXTY,T3 
PRINT " {DOKNZI " ı IFDD< >ZTHENSGA 

569 IFSC}=CBTHENCS=CB+1000: PRINT" {RVSON 
RIGHTZ3 DOHNFBONUS{SPACEF-TEPACEIUHBERT TE, 
PACE} | <UP23“sLI=LI+1260SUBASO 

571 IFLI=SOTHENPRINT"{DOHN RVSOH RIGHT2IY 
DU 'VELSPAGEIKILLINGTISPACEIALLTRIGCHTB DOH 
N>0*BERT 'S{SPALE) ! "  GOSUB630: GOTI576 

572 IFTD=1THENPRINT"{DOHH RYSOH RIGHTZIY 
DUISPALEILOSELSPACEIATTSPATCEITHISTRIGHTI 
DOHR RIGHTBILEVELTSPACE} ! ! "1 TD=0: GOTOS 
80 

575 PRINT"{DOHN RVSON RIGHT3ICONGRATULAT 
IONS{SFACEH!KRIGHTZ DOHNYYOU 'VEISPACEIRO 
N{SPACE}THISTSPAGEISTABE!" 

580 PRINT"{DONH RIGHTZ RVSON}VOLR{RVSOFE 
SPAGCEIOPORSTSPACE RVSON} N {RVSOFFY" INT (S 
E)EPFRINT"{RIGHTZ DOHNY "LI" {SPACEIWISPACE 
IXLSPACEIYVZT CRVSON} 'S! ! 2 G0SUB6SO 
590 IFPEEK (37137) =94THENPOKEC,0:DD=-1:60 
10120 

592 FORT=200T0250STEF.S5: POKEC,T=NEXT:FOR 
=250T02008TEP-. 5: POKEC,T:NEXT: GOT0S90 

596 POKEC+S,92 PRINT" {DGHM RVSON RIGHTZIP 


. 











<149> 
<11&? 
x237> 
x103> 


{1677 


<2> 


*124> 
“23547 
<124> 
<I> 

<*189> 
<1877 
“727 


. x100> 


«ıSı> 


<167> 
<238> 


«1> 


<547 
x105> 


<100> 
<137> 
xa> 
<215> 
<154> 
<155> 
<95> 


<122> 
<32> 


<aa> 
<x137> 
«246? 


s7> 


<%117> 
1937 


<a3> 


<211> 
<158> 
<197> 


<79>. 


<205> 


LAYLSPACEIAGAINTSPAGEI FFISPACEI (IIND " 
597 GETA$: IFA$< >" J"ANDAS<>"N"THENS9I7 
598 IFAS="J"THENRLIN 

599 POKEC+3 ‚27: POKEC-7 ,240: PRINT" {CLEAR 
BLUE DOWNZIRUN{YP3 LEFTZI"zEND 

&00 REM A.J.5.A 

510 POKEC+2, 15x IFTD=1 THENFORT=255101275T 
EP-2: POKEC,TzFÜRY=15TOOSTEP-25 POKEC+Z, Vz 
NEXTY,T i 

612 IFTD=ITHENFORT=1STOOSTEP-. 5: POKEC+2, 
Tı PIKEC+1 ,180+3#T: NEXT: POKEC+2, 153 POKEC+ 
1,0 

613 IFTD=2THENY=9:FORT=1T05: Y=Y+1: POKEP- 
22, VEPUKEP , Yı POKEP-22+# „AZ: POKEP+F ,1 

614 IFTD=2THENFORX=1STOOSTEP-. 4: POKEC+Z, 
X: PDKEC+1 ,200+3#X: POKEC-2, 200+3%X: NEXTX, 
T 

615 IFTD=2THENPOKEC+H „O=POKEL-2,0 

&1& IFTD=2THENIFFEEK (P-21) =1 THENPOKEP-22 
„1 x 

617 POKEC+2, 15: IFTD=2ANDPEEK (P-21)=32THE 
NPOKEP-22,32 

&18 IFTD=2THENFORT=1T014: POKEC+1 ,12049%T 
:PÜKEP ‚6: FORY=1T01005 NEXT=POKEC+1 ,0 

&19 IFTD=2THENPOKEP,7:FORY=1TDIOO:NEXTY, 
T 

628 LI=LI-1: TD=12RETURN 

&30 Ci=INT (RNDt1)*6) +13 FORT=127T02588TEP 
E12 POKEC+3 ,Bı 8Y57670s POKEC+H3 , 238: FOKEC,T 
zNEXT 

632 FORT=255T0127STEP-D1: POKEC+S,:5Y57& 
70: POKEC+3 „2381 POKEC,T3NEXT 

634 POKEC ‚0: POKEC+3,8:85Y874704 RETURN 


The End 





ser Super-Software-Angebot ($. 32,33) 


Compube mib 


Auch auf dieser „High-Society“-Party gibt es 
nur ein Gesprächsthema: „Die tollen Pro- 
gramme der Compute mit.“ Achten Sie aufun- 


<108> 
<206> 
<255> 
2172> 
<63> 

<211> 


x96> 
<216> 
<168> 
<32> 
<B77 
x63> 
2200» 
<50> 
<116> 
<123> 


«1237 
<1973> 
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6502 Assembler-Kurs 


Teil 13 


| um from Subroutine (Kehre von Unterprogramm zurück} 


Dieser Rücksprungbefehl eines Unterprogrammes ist vergleichbar mit dem Basic-Befehi „RETURN“. Er holteinen neuen Befehlszäh- 
jer-Wert von der Spitze des Stapels und inkrementiert ihn, bevor er zum Holen eines Befehles verwendet wird. Beachten Sie, daß der 
Stapelzeiger vor dem Laden jedes Datenbytes inkrementiert wird und sein endgültiger Wert um den Wert 2 größer ist als sein An- 





fangswert, 76543210 
HEX Adressierung Bytes Syntax NV BDIZC 
60 Impliziert 1 RTS nicht beeinflußt 
a ee So re 0, jedoch abgespeichert 


Leere Ver ededdegeent 


SBE - Subtract Memory from Accumulator (Suhtrahiere Speicher vom Akkumnulator) 
Dieser Befehl subtrahiertden Inhalt des gewählten Speicherbytes und das invertierte Übertragungsflag (Carry) vom Inhalt des Akku- 


mulators und bietet die gleichen Speicher-Adressiermöglichkeiten wie der ADC-Befehl. 76543210 

12 ee u Le en 

Ei Indirekt, vor-indizierte mit X 2 SBG (addr,x) x RX 

E5 Null-Seite (direkt) 2 SBC addr Das nachfolgende Beispiel demonstriert 
.E9 Unmittelbar 2 SBC #data eine 8-Bit-Subtraktion. Nachdem man 

ED Absolut (direkt) 3 SBG addr das Programm eingegeben hat, wird der 

Fi indirekt, nach-indiziert mit Y 2 SBC (addr),Y erste Operand in Speicherstelle 832 und 

F5 Null-Seite indiziert mit X 2 SBC addr,X der zweite Operand in 833 gepoked. Da- 

F9 Absolut indiziert mit Y 3 SBC addryY nach kann unsere Routine mit SYS 49152 

FD Absolut indiziert mit X 3 SBC addı,X aufgerufen werden. Das Ergebnis der 


Subtraktion wird über eine ROM-Routine 
auf dem Bildschirm ausgegeben. 





: BEISPIEL 
C000 
5 8 BIT SUBTRAHTION MIT DEM SBC-BEFEHL 


000 " 0PT P1,00 
C000 49152 


+ 
ll 


$BDCD ;ROUTINE ZUR ZAHLENAUSGABE 
832 _ ;SPEICHER FUER ZAHL 1 
833 _ ;SPEICHER FUER ZAHL 2 
834 _ ;SPEICHER FUER ZAHL DIVERENZ 


c000 ZPRINT 


0: 6000 ZAHLT 
: 0000 ZAHL? 
- 6000 ZAHL3 


u u un 


: C000 18 

: C001 AD 40 03 ZAHL1 ;LADE ERSTE ZAHL 

: 6004 ED 41 03 ZAHL2 ;SUBTRAHIERE ZAHL2 VON ZAHLI 

: 0007 8D 42.03 ZAHL3 ;SPEICHERE ERGEBNIS AB 

: C0A AA :ZAHL FUER ZPRINT NACH X-REGISTER LEG 
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kurs 


EN 
190: COOB A900 LDA #0 ;HIGH BYTE LOESCHEN 


200: COOD 20 CD BD JSR ZPRINT 

210: C0O10 60 RTS 
Erweitern wir unser Programm etwas, läßtssich sehr schnell auch eine 16-Bit-Subtraktion bewerkstelligen. Hier müssen die einzelnen 
Operanden jeweils in Low- und Highbyte aufgetrennt und in zwei Speicherstelien abgelegt werden. Der Arbeitsablauf erfolgt wie in 
Beispiel 1. 








SEC Set Carry (Setze Übertran) 


Dieser Befehl setzt das C-Flag auf 1. Es werden keine anderen Status oder Register-Inhalte beeinflußt. Beachten Sie, daß dieser Be- 
fehl als Teil einer normalen Subtraktions-Operation benötigt wird, da der einzige beim 6502- und 6510-Prozessor verfügbare Sub- 
traktions-Befehl der SBC ist, welcher auch den komplementierten Übertrags-Status subtrahiert. Dieser Befehl ist auch beim Beginn 
einer Multibyte-Subtraktion erforderlich, da es niemals ein Borgen vom niedrigsten Byte gibt. 76543210 


Hex  Adressierung - . Bytes Syntax NV BDIZC 
38 Impliziert 1 SEC x 





SED_ Set Decimal Mode (Setze Dezimal-Retriehsart 


Mit diesem Befehl läßt sich der C-84 auf den Dezimal-Modus umschaften. Dieser Modus ist eine Besonderheit des 6510 und 6502. 
Die dezimale Betriebsart wird dazu verwand, um den Processor 6502 in die Dezimal-Betriebsart zu versetzen, in der ADC- und SBC- 
Befehle BCD-Ergebnisse anstatt binäre Resultate liefern. Der Programmierer sollte sehr sorgfältig auf die Tatsache achten, daß das 
gleiche Programm unterschiedliche Ergebnisse erzeugen wird, abhängig vom Zustand des Dezimal-Betriebsarts-Status. Dies kann 
zu unangenehmen und überraschenden Fehlern führen, wenn der Zustand des Dezimal-Betriebsarts-Status nicht sorgfältig beob- 
achtet wird. Beim C-64 wird nach dem Einschalten das D-Flag gelöscht und damit auf die binäre Aritnmetik umgeschaltet. Kleinere 
Maschinen können deshalb immer davon ausgehen, daß sich der G-64 im Binären-Modus befindet, einige Ausnahmen sind lediglich 


einige Routinen des Basic-Interpreters, welche mit Fließkomma-Zahlen hantieren. 76543210 
Hex  Adressierung Bytes _ Syntax NV BDIZC 


FB. Impliziert S 1 SED x 





SEI Sei Interrupt Mask (disable Interrupt) [Setze Unterbrechungs-Maske-Sperre Unterbrechung) 


Dies ist das Gegenstück zum CLI-Befehl. Dieser Befehl setzt das I-Flag des Statusregister und sperrt dadurch alle Unterbrechungen, 
welche durch den IRO-Eingang des Processors aktiviert werden. Der NMI-Eingang wird durch diesen Befehl nicht gesperrt und bleibt 
deshalb weiterhin wirksam. Der SEI sowie der CLI-Befehl sollte beim C-64 mit größter Vorsicht behandelt werden, da hier normaler- 
weise 50 mal in der Sekunde eine Interrupt-Routine aufgerufen wird, welche die Uhr stellt und die Tastatur abfragt. Wird in einem Ih- 
rer Programme der Interrupt ausgeschaltet, kann der Rechner die Tastatur nicht mehr kontrollieren und läßt sich nur über den NMI 
(RUN/STOP RESTORE) wieder unter Kontrolle bringen. Wir werden später noch aufzeigen, wie sich der Interrupt beim C-64 ausnut- 
zen läßt um Grafikeffekte und Sound zu erzeugen, ohne das ein nebenbei ablaufendes Basic-Programm dabei stört. 











Hex  Adressierung Bytes Syntax 76543210 
8 se 1 SEI NV _BDIZC 
x 
Literatur: | 6502/65002, Christian Porsson, 
Lance A. Leventhal Heinz Heise Verlag 

6502 Microcomputer-Programmierung, 65 Intern, Angershausen, Reverenz Map, F. Brall 

Peter Heuer, Hofacker Verlag " Becker, Englisch, Gerits, Butterfield’s Lehrbuch, 

6502 Programmierung in Assembler, | Data-Becker Buch J. Butterfield, Hanser-Verlag 
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Ein MINI-FORTH auf dem SCHNEIDER CPC-464 


Interessieren Sie sich für Forth? Diese Programmiersprache hat ja in letzter Zeitregelrecht Fu- 
rore gemacht und liegt nun auch für den Schneider CPC-464 in verschiedenen Versionen vor. 
Alle zusammen haben denselben Nachteil: Sie kosten einen Batzen Geld. Mitdem abgedruck- 
ten Forth-Simulator können Sie die Grundzüge diese Sprache erlernen und dann entscheiden, 


Die Vor- und Nachteile von Forth wurden 

ja schon oft genug erörtert, hier deshalb 

die wichtigsten Eigenschaften nur in 

Stichworten: 

- Fastso schnell wie Maschinensprache, 
aber nicht so schwierig zu program- 
mieren. 

- Geringer Speicherplatzbedarf sowohl 
des Interpreters selbst als auch der er- 
zeugten Programme. 

- Aufgrund der umgekehrten Polnischen 
Notation (s. u.) schwieriger zu erlernen 
als z.B. Basic oder Pascal. 

- Möglichkeit zur dynamischen Defini- 
tion von Befehlen. Somit kann für jede 
Anwendung (Grafik, Textverarbeitung, 
Arithmetik) ein spezieller Befehlssatz 
kreiert werden. 


Zuerst zur umgekehrten Polnischen Nota- 
tion (UPN oder RPN), die dem Forth-An- 
fänger am meisten zu schaffen macht: 
Forth kennt zwar Variablen, benutzt sie 
aber kaum, da alle Daten auf Stacks, also 


Stapelspeichern, abgelegt werden. Ma- 


‚schinenprogrammierer wissen damit Si- 
char etwas anzufangen (PUSH und POP), 
für die übrigen folgt hier die wohl meist- 
verwendete Erklärung: Stellen Sie sich ei- 
nen Tellerstapel vor; auf diesen können 
Sie oben Teiler auflegen und oben auch 
wieder entnehmen. Solange Sie kein zir- 
kusreifer Artist sind, dürfte es unmöglich 
sein, weiter unten liegende Teller direkt 
wegzunehmen. Sie müssen alle darüber- 
liegenden Teller beiseite legen, um an die- 
sen Teller heranzukommen. Diese Spei- 
cherorganisation nennt man LIFO-Last in, 
first out: was zuletzt auf den Stapel 
kommt, kann auch zuerst wieder wegge- 
nommen werden. 

Stellen Sie sich das Ganze nun statt mit 
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ob Forth für Sie in Frage kommt. 


Tellern mit Zahlen vor: Sie können beliebig 
viele Zahlen auf den Stapel, neudeutsch 
„Stack“, legen. Die Rechenbefehle, z.B. 
die vier Grundrechenarten, verknüpfen je- 
weils die beiden obersten Stapelelemente 
miteinander: Legen Sie die Zahlen 33 und 
44 auf den Stapel und geben Sie ein Plus- 
Zeichen ein, so nimmtder Gomputer beide 
Werte vom Stack, addiert sie und legt das 
Ergebnis wieder auf den Stapel. Die Zah- 
len 33 und 44 selbst sind dann ver- 
schwunden. 

Nach dieser kurzen Einführung sollten Sie 
die weiteren Übungen direkt am Gompu- 
ter durchführen. Geben Sie dazu .den 
Forth/UPN-Simulator ein, Dieser ist in Ba- 
sic geschrieben und damit natürlich er- 
heblich langsamer als Forth normalerwei- 


.! se. Es besteht aber damit auch kaum die 


Gefahr, den Computer zum-Abstürzen zu 
bringen, was Anfänger - und auch Profis - 
bei Forth des öfteren schaffen. Außerdem 
kennt das Programm natürlich nicht den 
gesamten Befehlssatz, so fehlen z.B. 
Schleifen- und Vergleichsbefehle. Um die 
Grundzüge der Programmierung in Forth 
zu erlernen, reicht das Programm aber voll 
aus, Da der Simulator in Basic geschrie- 
ben ist, steht er Ihren Erweiterungen na- 
türlich offen. 

Haben Sie das Programm abgetippt, soll- 
ten Sie es sicherheitshalber abspeichern. 
Auch ist es zu empfehlen, bei der Austest- 
phase des Programms die ON-ERROR-An- 
weisung In Zeile 540 erst einmal wegzu- 
lassen, damit Sie Tippfehler in der einge- 
gebenen Version entdecken können. So- 
bald Sie das Programm starten, schaltet 
es auf 80 Zeichen pro Zeile um und zeigt 
den Arbeitsbildschirm. Auf der rechten 
Bildschirmhälfte finden Sie alle residenten 
Forth-Befehle, die im folgenden Text an- 


Compute mit 


gesprochen werden. Links oben ist der 
Stack-Pointer SP zu finden, der immer auf 
das oberste Element des Stacks zeigt. So 
können Sie während der Rechnungen im- 
mer die Stapel-Aktivitäten verfolgen. 
Beim Programmstart wird der Stack auf 
die Adresse 24576 gesetzt. Sie haben 
16 KByte frei für den Stack und können 
8192 16-Bit-Integerzahlen speichern. Dies 
ist erheblich mehr als bei anderen Forth- 
Systemen und reicht auf jeden Fall aus. 
Das verbleibende umrahmte Bildschirm- 
fenster, in dem der Cursor steht, istihr Ein- 
gabefeld. Auch werden die Antworten des 
Computers hier ausgegeben. Sie können 
bis zu 253 Zeichen in eine Eingangszeile 
packen; längere Eingaben werden zu- 
rückgewiesen. 
Wiederholen Sie doch noch einmal die 
Rechnung von vorhin. Tippen Sie ein: 
33 <ENTER> - der Stapelzeiger erhöht 
sich auf 24578 
44 <ENTER> - der Stackzeiger steht 
jetzt auf 24580 
+ <ENTER> - jetzt wird der Stapel 
wieder auf 24578 er- 
niedrigt. 
Nun wollen Sie aber auch ein Ergebnis se- 
hen. In Basic würden Sie jetzt PRINT ein- 
geben, Forth hat dafür den Punkt „" reser- 
viert, Geben Sie also noch einen Punkt ein 
und drücken Sie wieder ENTER Kurz da- 
rauf erscheint das Ergebnis 77. 
Natürlich können Sie auch alle Eingaben 
in eine einzige Zeile packen: 
33 44 + . <ENTER> 
Das Ergebnis ist dasselbe. Die übrigen 
drei Grundrechenarten funktionieren ge- 
nauso: 
34*, ergibt 12 
123/. ergibt 4 
43 -. ergibt t 


4 








Programme 


Eine Kombination dieser Rechnungen ist 
natürlich auch möglich; 
34*5 +, ergibt 17 

Achten Sie unbedingt darauf, zwischen al- 
ien Operanden und Operatoren minde- 
stens ein Leerzeichen einzufügen. Mehr 
Leerzeichen schaden nicht, drücken aber 
etwas die Verarbeitungsgeschwindigkeit. 
Alle Eingaben können sowohl in Klein- als 
auch in Großbuchstaben erfolgen. _ 
Jetzt bleibt nur noch eines zu tun: Üben, 
üben, üben! Denn dies ist die wohl wich- 
tigste Grundlage von Forth. Ohne Kenntnis 
der UPN kein Forth! 

Nun gibt es noch weitere Befehle, mit de- 
nen der Stapelspeicher manipuliert wer- 
den kann. Dazu sind noch zwei Fachbe- 
griffe zu erklären: TOS heißt „Top of 
Stack“, meint also das oberste Stapelele- 
ment. „208“ heißt „Second Element of 
Stack“ und ist das zweite Stapeldiement, 
das direkt unter dem TOSliegt. Es gibt Be- 
fehle, die nur den TOS verändern, und an- 
dere, die TOS und 205 benötigen. 


1+ und 2+ sind nur der Vollständigkeit hal- 
ber aufgenommen und funktionieren ge- 
nauso wie „1 +" und „2 +“. Bei richtigen 
Forth-Interpretern bringen sie einen klei- 
nen Geschwindigkeitsgewinn. 


SOR ist ähnlich der Pascal-Funktion SOR, 
nichtzu verwechseln mit Basic’sSQR Die- 
ser Befehl quadriert den TOS. Achten Sie 
aber - wie bei allen anderen Berechnun- 
gen darauf, daß nur Integer-Zahlen verar- 
beitet werden können, die im Bereich von 
-32768 bis 65535 liegen können. 


Beispiel: 3 SOR . ergibt 9 


42 


DUP dupliziert den TOS, d.h. der inhalt des 

TOS wird noch einmal auf den Stapel ge- 

legt. $o können z.B. Zwischenergebnisse 

gespeichert werden, wenn diese Zahl 

nochmals benötigt wird. 

Beispiel: 3 DUP * . ergibt 33 *. und hat 
das Ergebnis 9. 


DROP vergißt den TOS und erniedrigt den 

Stapelzeiger dementsprechend. 

Beispiel: 3 4 DROP . ergibt 3, da der 
TOS-Wert 4 wieder vergessen 
wurde. 


SWAP tauscht den Inhalt des TOS und des 


‚205 aus. Damit können z.B. Divisionen 
und Subtraktionen vorbereitetwerden, bei 


denen es auf die Stellung der Operanden 

ankommt. . 

Beispiel! 43 -. ergibt 4-3=1 
4 3 SWAP - . ergibt 3-4=-1 


SWPB ist vor allem für Maschinenpro- 
grammierer interessant, denn SWPB heißt 
„Swap Bytes“ und tauscht das High- und 
das Low-Byte des TOS aus. 

Beispiel: &0003 SWPB. ergibt 768 (hexa- 

dezima! &0300} 

Hier sehen Sie auch, daß Sie überall auch 
Hexadezimal- und Binärzahlen verwen- 
den können - bis auf den Sonderfall Null: 
Diese Zahl muß dezimal eingegeben wer- 
den, Das hat das Programm um einige Zei- 
len verkürzt. 


ABS entspricht der Basic-Funktion ABS. Es 
bildet den Absolutwert des TOS. 
Beispiel: -3 ABS . ergibt 3 


NER bildet den Minuswert des TOS. 
Beispiel: 3 NEG . ergibt -3 


MIN und MAX vergleichen den Inhalt des 
T0S und 208 und legen das Minimum 
bzw. Maximum wieder auf den Stapel. 
Beispiel: 34 MIN. ergibt 3 

45 MAX . ergibt 5 


AND, OR, XOR erlauben logische Verknüp- 
fungen des TOS und 208. Sieentsprechen 
den gleichnamigen Basic-Kommandos. 
Beispiel: 1 2 OR. ergibt 3 


NOT bildet das Zweier-Komplement des 
TOS - genau wie der Basic-Befehl glei- 
chen Namens: 

Beispiel: 3 NOT . ergibt -4 


EMIT gibt den Inhaltdes TOS als ASCHi-Zei- 
chen aus, vergleichbar der CHR$-Funk- 
tion in Basic. 

Beispiel: 7 EMIT gibt einen Beep-Ton aus. 


SPAGES gibt soviele Leerzeichen aus, wie 

sie dem TOS-Inhalt entsprechen. 

Beispiel: 20 SPACES 42 EMIT gibt nach 
20 Leerzeichen einen Stern aus. 


Compute mit 


CR, LE CALF geben einen Wagenrücklauf, 
ein Line-Feed oder beides zusammen aus: 
CR entspricht 13 EMIT 

LF - entspricht 10 EMIT 

CALF entspricht 10 EMIT 13 EMIT 


CLS löscht den Bildschirm. 


BEEP gibt einen Beep-Ton aus und ent- 

spricht 7 EMIT. 

GOTOXY setzt den Cursor entsprechend 

dem TOS und 205. 

Beispiel: 1 1 GOFOXY setzt den Gursor 
in die linke obere Ecke. 


BASIC führt einen Rücksprung nach Basic: 
aus. 


Wortdefinitionen 


Nun zu einem weiteren hervorstechenden. 
Merkmal von Forth: den Wortdefinitionen. 
Ihnen ist sicher schon aufgefallen, daß 
man mit dem Grundwortschatz von Forth 
nicht allzuviet anfangen kann. Dafür kann 
man aber komplizierte Befehisfolgen un- 
ter einen Namen zusammenfassen und 
unter diesem Namen aufrufen. Die Defini- 
tionen bestehen aus einem Doppelpunkt, 
einem Leerzeichen, dem Namen der Defi- 
nition, einem weiteren Leerzeichen, den 
Befehlen, wiederum einem Leerzeichen 
und einem Strichpunkt als Kennzeichen 
für das Definitionsende, 

Dabei können die neuen Definitionen wie- 
derum auf alte bereits definierte Worte zu- 
rückgreifen. Vielleicht stört Sie der Punkt 
als Druckbefehl und Sie wollen das Basic- 
Wort PRINT übernehmen. Nichts leichter 
als das: 

ı PRINT . ; 


Ab sofort können PRINT und der Punkt 
gleichwertig nebeneinander verwendet 
werden. 
: KUBIK DUP DUP ** ; 
definiert ein Wort KUBIK, mit dem der TOS 
hoch drei genommen werden kann: 

4 KUBIK . ergibt 64 - 

: KUBIKPRINT KUBIK PRINT ; 
verwendet beide definierten Wortein einer 
neuen Definition. Übersetzt wird es vom 
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Computer als DUP DUP * *, 
4 KUBIKPRINT druckt dann sofort den 
Wert 64 aus. 


LIST listet alle vom Benutzer definierten 


Worte auf. 


DEF erlaubt es, die Definition eines Wortes 
noch einmal anzuzeigen. Dazu muß die 
Nummer des Worts ermittelt werden. Sie 


nen. 

Beispiel: 

LIST ergibt PRINT KUBIK KUBIKPRINT 
PRINT ist dann Definition /, KUBIK Nr], 
KUBIKPRINT Nr.2 

1 DEF ergibt: KUBIK = BUP BUP * * 


FORGET ermöglicht es, gezielt Worte aus 
dem Vokabular wieder zu streichen, wenn 
sie fehlerhaft sind oder nicht mehr benö- 


programme 


4 KUBIKPRINT ergibt 64 
FORGET KUBIKPRINT 
4 KUBIKPRINT ergibt KUBIKPRINT? 


Als letzte Gruppe gibt es noch sechs „ge- 
fährliche* Kommandos. Diese können 
nämlich den Computer zum Aussteigen 
bringen - genau wie ihre Basic-Aquiva- 
lente PEEK, PCKE, DEEK, DOKE, PRINT 
PEEK und PRINT DEEK. 


tigt werden. 
Beispiel: 


können ganz einfach beim LIST-Befehl die 
Worte abzählen, indem Sie bei Null begin- 


255 24576 GC! POKE 24576,255 

&3FAC 24576 ! POKE 24576,&AG:POKE24577,&3F 
24576 Ca TOS=PEEK(24576) 
TOS-PEEK(24576)+PEEK(24577)*256 
PRINT PEEK(24576) 

PRINT PEEK(24576)-+PEEK(;4577)*256 


6! entspricht dem Basic-POKE: 
!  istein Doppel-PÜKE: 
C@ entspricht dem Basic-PEEK 


@ entspricht einem Doppel-PEEK 24576 a 


24576 C? 
24576 ? 


C? ist ein PRINT PEEK 
? istein PRINT Doppel-PEEK 





Überlegen Sie sich die Verwendung dieser Befehle aber gut! Ein falscher Wert - und der Computer ist abgestürzt. Viel Spaß beim 
Forth-Lernen! Vielleicht finden Sie ja soviel Interesse daran, daß Sie sich einen richtigen Forth-Interpreter zulegen. 
Martin Kotulla 


TOS vergessen" 
TOS und 205 austause 


310 PRINT "DROF 
320 PRINT "SWAR 


1009 ° KENERKHN KT EREERIE HERE RHRKHH HN TH 
AERKEREN KHK HH HF HH NEE RERERR 


110°» * hen" 

* % 330 PRINT "SWPB MSB %& LSB des TÜS ta 
120 ° * FORTH/UPN-Simulator * {c} uschen" 
Martin Kotulla * 2.9.1985 * 3409 PRINT "ABS NEG TOS:=abs (TOS} TOS:= 
130° * * -TIS" 

* %* 350 PRINT "MIN MAX TOS:s=min (TOS,205) bz 
IA TORE UEFA H EHRE W. max" 
ERRRHKHRHNRKIERHIHRIN HH HER IRRE 250 PRINT "AND X-OR TOS:=TOS5S and 205 (xo 
150 ° r,om)" 


370 PRINT "NOT 
380 PRINT "EMIT 
'n drucken" 

3970 PRINT "SPACES 


150 DEF FNlsb (a)=255 AND UNT (a) 

170 DEF FNmsb (a)=255 AND INT (3/2356) 

180 MÜDE ZINK 1,0:INk Q,10:BÖRDER 10 
190 LOCATE 14,1:PRINT CHR# (150) +STRING$ 


T0S:=not TIS” 
TOS als ASCII-Zeiche 


T0$%+ Leerzeichen dru 


10,154) +CHR$ (156) cken" 

200 LOCATE 14,2:FRINT CHR$ (149) +5SPACES (1 400 PRINT "CR LF Wagenruecklauf, Line 
O) +CHRE 1A -Feed" 

z10 LOCATE 14,35PRINT CHR$ (1473+STRINGF 410 PRINT "CRLF Wagenruecklauf & Lin 
10,155) +CHR$ (153) e-Feed" 


420 PRINT "CLS 
430 FRINT "BEEP 
440 FRINT "GOTOXY 
setzen" 

450 PRINT "= 


220 LOCATE 1,4:3PRINT CHR$L1SO)H+STRING$ (3 
6,154) +CHR$ (155) 

230 FOR i=5 TO 24:PRINT CHR$ (149); TABISS 
I); CHR$(149) NEXT i : 
240 LOICATE 1,25:PRINT EHR$ (147) +5TRINGS$ C 


Bildschirm loeschen" 
Beep-Ton" 
Cursor nach T057/205 


Wort definieren" 


36 , 154) +CHR$ (155) 440 PRINT "LIST Definierte Worte lis 
250 WINDOW 42,80,1,25:WINDOW #1,168,23,2, ten" 
2 470 PRINT "DEF Definition eines Wor 


ts listen" 

480 FRINT "FORGET 
ssen" 

T05:-T05+1, +2" 470 PRINT "BASIC 
TOS quadrieren" ic" 

TOS duplizieren" 500 PRINT "C! Ce C? POkKE, PEER, PRINT FE 
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260 CLS #1:PRINT #1, "5P=24576";5 
270 PRINT "+ - * / Integer-Srundrechena 
rten" 

280 PRINT "i+ 
2970 PRINT "SER 
Zza0 FRINT "DUP 


Wortdefinition verge 


Ruecksprung nach Bas 
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N Kaufhäuser nutzen ihre 
Marktchancen 


report 


TED TRRTESCH IN 


für Computer, Software und Zubehör 





In der Zeit vom 23. - 27. Aprilfand in Dortmund die 9. Ausstellung für Funk- und Hobby-Elektro- 
nik statt, Angegliedert an diese 9. Fachausstellung war wie bereits im letzten Jahr auch die 2. 
Computer-Schau. Hier konnte der interessierte Fachbesucher in einer gesonderten Messehal- 
le ein großes Angebot an Computern, Software und Zubehör bestaunen. 


Große Zahl an Anbietern 


Eine große Zahl von Fachhändlern und 
Anbietern hatte in der Messehalle ihre 
Stände aufgebaut und zeigten einem in- 
teressierten Publikum die neuesten Zube- 
hörteile im Bereich der Mikroelektronik. 
Vom Joystick bis hin zum einfachen 
Adapter war für fast jeden Homecompu- 
ter das zu bekommen, was der User für 
den Umgang mit seinem System benötigt. 
Dabei war es von Vorteil, wenn man sich 
zu Beginn des Besuches ersteinmal einen 
Überblick vom Angebot verschaffte, denn 
die Vielzahl der Anbieter garantierte oftfür 
das gleiche Produkt einen unterschiedli- 
chen Preis. Wer hier erst verglichen und 
dann gekauft hat, derhatsicherlich seinen 
Geldbeutel etwas entlasten können. 





Nachdem bereits im letzten Jahr einige 
Kaufhäuser mit Verkaufsständen vertre- 
ten waren, hat jedes größere Warenhaus 
inder Umgebung von Dortmund die Gunst 
der Stunde genutzt und mit einem breiten 
und vielfältigen Produktangebot die Kun- 
den gelockt. Die Angebotspalette dieser 
Kaufhäuser wird ständig erweitert, denn 
auch hier hat man längst entdeckt, daß 
der Gomputer immer mehr Aufmerksam- 
keit erlangt und der Anteil der Freizeitbe- 
schäftigung mit dem Computer ständig 


‚steigt. Auch das Verkaufspersonal steht. 


heute schon mit Rat und Tat zur Seite und 
gibt Fachinformationen weiter, die man. 
noch vor kurzer Zeit nicht erwarten konn- 
te, da nicht alle über genügend Erfahrun- 
gen in der Mikroelektronik verfügten. 







NERSSTUNTELGRUNTAT MEAN: 
nicht ab 


Neben dem Hardware-Vorstellungen war 


der zweite große Themenbereich dieser 
Ausstellung das riesige und nicht mehr 
endenwoliende Software-Angebot. An je- 
dem Stand waren Computer aufgebaut, 
an denen der Besucher die neuesten Spie- 
le, Adventures oder Anwendungspro- 
gramme testen konnte. Man mußte schon 
viel Zeit mitbringen, wollte man an jedem 
Stand alles das testen, was angeboten 
wurde. Wir waren der Meinung, daß die- 
ser Teil der Ausstellung wohl die meisten 
der Besucher reizte. Nach Auskunft der 
Händler und der großen Software-Ver- 
triebsfirmen in Deutschland ist mit einem 
ablaufenden des z.Z. herrschenden 
Boos nicht zu rechnen. Im Gegenteil, die 
Zahl der Software-Neuvorstellung inner- 
halb eines Monats z.B. nimmt laufend zu 
und die Neugründung vieler Software- 
Häuser im In- und Ausland läßt schon er- 
ahnen, daß hier noch längst nicht das Ziel 
erreicht ist und in Fachkreisen wird des- 
halb auch mit steigenden Verkaufszahlen 
auf dem europäischen Markt gerechnet. 


Regionale oder internationale 
KILTITCISSIHIEITKZ 


Leider ist es z.Z. noch nicht so, daß die 
Hobbytronic das Flair einer internationa- 
len Fachausstellung besitzt, Aber bei ge- 
nauerem hinschauen, konnte man schon 
teststellen, das Anbieter aus dem gesam- 
ten Bundesgebiet vertreten waren. Ledig- 





‚lich beider Computerschau fiel auf, dases 


noch eine regionale Schau der umliegen- 


Gompute enöb 


den Firmen war. Zwar war hin und Ariadet 
ein Messestand zu sehen, der nicht direkt 
aus der Umgebung Dortmunds kam, aber 
im Großen und Ganzen waren doch eine 
Vielzahl von einheimischen Firmen mitih- 
ren Ständen vertreten. Nach Auskunft der 
Messeleitung istman jedoch besirebt, die- 
se Messe auszuweiten und versucht für 
die nächste Computerschau die Ausstel- 
lungsfläche zu vergrößern und die Händ- 
lerzahl zu steigern. 


Insgesamt betrachtet, kann man die Mes- 
se als einen Erfolg für Händler und Besu- 
cher ansehen, Durch das große Angebot 


.anı Hard- und Software wurde dem User 


ein Überblick über das gesamte Zubehör- 
Sortiment im Bereich der Mikroelektronik 
gezeigt. Bei Preisvergleichen konnte er 
beim Kauf von verschiedenen Artikeln er- 
hebliches an Geld sparen. Die Besucher- 
zahlen während der Messetagen lassen 
auf eine positive Resonanz beim Änwen- 
der schließen. Esbleibtzu sagen, daßman 
versuchan sollte, dieser Messe noch mehr 
an internationalem Flair zu verleihen. 
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Amstrad kauft die weltweiten Vertriebsrechte für Sinclair 


report 





Vertrieb in Deutschland über Schneider AG 


Die britische Firma Amstrad Consumer 
Electronics plc gab am 07. 04. 86 he- 
kannt, daß sie die weltweiten Vertriebs- 
und Produktionsrechte aller Sinclair Com- 
puter und Computerprodukte sowie das 
Markenzeichen Sinclair und das hiermit 
verbundene Know-How von der Firma 
Sinclair Research Limited übernommen 
hat. 

Für diese Rechte wurden von Amstrad 
5 Mill. Pfund Sterling bezahlt. Auch der 


Verkauf der vorhandenen Lagerbestände‘ 


sowie einige bestehende Auftragsver- 
pflichtungen werden von Amstrad über- 
nommen. ö 

Amstrad wird die Sinclair Gomputerpro- 
dukte weiterhin unter der Marke Sinclair 
vermarkten. Der Vertrieb in Deutschland, 


Österreich, Schweiz und den Benelux- 
Staaten wird von der Schneider AG in 
Türkheim/Unterallgäu übernommen. Der 
Verkauf der Sinclair Gomputern wird par- 
allel zum Verkauf der Schneider Computer 
laufen, wobei die Sinclair Geräte den Un- 
terhaltungsbereich und die Schneider 
Rechner den gehobenen Bereich der 
Heimcomputer sowie den Bereich der Ge- 
schäftscomputer abdecken werden. 

Die Übernahme erfolgt fast genau zwei 
Jahre nach dem Einstieg der Firmen Am- 
strad und Schneider in den Computer- 
markt, festigt die weltweite Stellung und 
erlaubt es den beiden Unternehmen, in ei- 
nen speziellen Marktbereich einzudrin- 
gen, der traditionsgemäß von den Marken 
Commodore und Sinclair beherrscht wur- 


‚de. 


Die Sinclair Produkte waren für techni- 
sche Neuerungen bekannt. Die Stärken 
von Amstrad und Schneider liegen im 
Marketing, dem Vertriebsnetz und der an- 
erkannt guten Qualität der Computer und 
Peripheriegeräte. Es existiert bereits ein 
flächendeckendes Händlernetz, über das 
die Sinclair Produkte ebenso vermarktet 
werden können wie schon die bisherige 
Produktpalette. 

Amstrad wird auch weiterhin mit der 


.neuorganisierten Sinclair Research Limi- 


ted sowie mit Sir Glive Sinclair in Hinischt 
auf eventuelle Neuentwicklungen im Dia- 
log bleiben, die dann gegebenenfalls von 
Amstrad und Schneider vermarktet wer- 


‚den. 





Probierwochen: 
Selbst testen, was besser ist! 


An die Systerne G-64/C-128 kann man ei- 
nen Standard-Drucker über ein Hardwa- 
‚ re-Interface oder mit einem einfachen Ka- 
bel an den Userportanschließen. Unser In- 
terface ist 100% kompatibel und pro- 
blemios, das Userport-Kabel funktioniert 
nur eingeschränkt {nur in Verbindung mit 
bestimmten Programmen), blockiert den 


User-Port für andere Erweiterungen, ist 
aberbillig. Wir möchten jeden Kunden die 
Gelegenheit geben, zu testen, welche Lö- 
sung besser ist: 

Wir bieten ab sofort ein Userport-Kabel 


(ohne Software) für 39,- DM inkl, MwSt. 


an. Innerhalb von 2 Monaten kann der 
Kunde dieses Kabel {bei uns oder bei ei- 


nem teilnehmenden Händler) jederzeit oh- 
ne Angabe von Gründen gegen eines un- 
serer vollkompatiblen Hardware-Interfa- 
ces tauschen: Bei Rückgabe eines User- 
port-Kabels berechnen wir für unser Inter- 
face 92000/G nur noch 168,- DM (sonst 
198,- DM), für den 8KByte-Typ 92008/G 
nur noch 248,- DM {sonst 278,- DM) - 
der Kaufpreis des Kabels wird also bis auf 
9,- DM Handlingkosten voll erstattet! 
Wiesenann Computertechnik 
Winchenbachstraße 3-5 

5600 Wuppertal 2 





DAZU PRODUKTVERTRIEB GMBH, 
Hans-Henny-Jahnn-Weg 41-45, 

2000 Hamburg 76, 

stellt ein neues Produkt vor. 

Für die Zentraleinheit und den Bildschirm 
der Personal Computer ist die BASIS ein 
Untersatz, der die Tastatur aufnimmt und 
ein Minimum an Platz auf der Arbeitsflä- 
che beansprucht. 

Die Abmessungen, Höhe 95 mm, Breite 
538 mm, Tiefe 420 mm, sind so proportio- 
niert, daß die PC Zentraleinheiten der ver- 
schiedenen Farbrikate für das Produkt ge- 
eignet ist. 
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Bringen Sie Ihr System 
platzsparend unter . 


\\\ 


NET 





Compute mi 





Die Belastbarkeit ist durch die drei Stand- 
flächen und die vordere Aufkantung ge- 
währleistet. In der Rückwand befinden 
sich links und rechts Öffnungen zur 
Durchführung der Tastaturkabel. Sechs 
Gummiprofile geben der BASIS auf allen 
Flächen einen festen Halt. 

Die DAZU BASIS ist aus dem klaren und 
neutralen Material Plexiglas und wird in 
Funktion und Design allen Ansprüchen 
gerecht. ; 

Das Produkt ist im Bürofachhande! zum 


| Preis von 139,00 DM zuzüglich MWSt. zu be- 


ziehen. 


| 
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programme 


EK “a 
510 
EK “ 
520 WINDOW 3,36,5,243MEMORY 24575 

530 stack=24575:DIM array$ (128) ,helpary$ 
(128) „‚word$ (128) ‚vocab# (128) 

540 ON ERROR GOTO 2090 " Fehlerbehandlun 


PRINT "! @ ? DOKE, DEEK, PRINT DE 


g 

550 PRINT=:LINE INPUT at a#=UPPER$ (a#) 
560 IF LEN{a$}>253 THEN FRINT CHR$ (TI "%* 
Eingabe zu lang!":60T0 550 

370 IF ASCta$+CHR$O))=32 THEN 3$=NID$(a 
2,2):G0T0 570 ELSE as=as+" " 

580 in=INSTR(1,a$," ")sIF in THEN a$=LE 
FT$ (a$ ,in-1)+MID$ (a, in+1):560T0 580 

5709 IF ASCta$+CHR$(0))<S2 THEN PRINT a$; 
:GOTO 550 

600 IF LEFT${a#&,1)<>"=2" THEN 650 ’ ur# 

kort definieren 

#10 posi=INSTR(3,3%," ")-Isword$ (vocab}= 
MID$(a$,3,posi) 

620 vorab$ (vocab}=MID$ (a$,posi+4) 

639 vocab$(vocab)=LEFT$(vocab$ (vocab) ‚LE 
N {vocab$ (vocab}) 23 N 

6409 vocab=vocab+1:56070 550 

&50 count=O 

saß ERASE array$,helpary#:DIM array$s (255 
; „helpary# (128) 

670 in=INSTR{1,a$%," ”) 

80 IF in THEN array$ (count)=LEFT$ (a$,in 
-1) scsunt=count+l 

&90 IF in THEN a$=MID$ (a#,in+1):G60T0 670 
799 * KOMMANDOS AUSFUEHREN ========2=2=2=== 


m m u m m nn nn 
SZ le DOSE IEI 2 ZZzz zZ mm za ca 


710 loop=d 

720 a$=arraystloop) 

750 IF ag="„" THEN 1200 
Drucke Toprof-Stack 

749 IF as="+" THEN 1220 * 


Addition - 

759 IF. a#="-" THEN 1230 
Subtraktion 
760 IF ag="x*" THEN 1240 

Multiplikation 
770 IF a$="7/" THEN 1250 * 
Division : 


780 IF a$="DUP" THEN 1290 ” 
DurPlicate TOS 
790 IF a$="DROP" 
DROP TOS 
800 IF as="SWAP" THEN 1310 * 
SWAP TOS %& 208 
8109 IF as="EMIT" THEN 1330 
ASCII-Zeichen des TOS ausgeben 
820 IF a$="SWPB" THEN 13409 * 
Swap MS5Byte & LSByte des T05 
8350 IF as="1+" THEN 1370 
T05:=Tüs+tl 
840 IF as="2+" 
T0OS+:=TOS+2 
850 IF as="SOR" 
T95S:=T0S”2 
850 IF ag="ABRS" 


THEN 1300 ° 


THEN 1380 '* 
THEN 1400 ° 


THEN 1410 


GCompute mib 


TOS: sabs (TüS) 
6870 IF a$="NEG" 
TOS:=-TUS 
880 IF as="MIN" THEN 1440 ’ 
TOS: =min (T0S,205) 

870 IF as="MAX" THEN 1450 
TOS: =max (T05,20S) 

900 IF at="AND” THEN 1470 * 
TOS:=-TOS and 208 


THEN 1420 


910 IF a$="üR” THEN 1480 " 
T085:=T0S or 205 
920 IF a$="X0R" THEN 1490 " 


TIS;=T0S xor 205 

30 IF a%="NDT" THEN 1500 " 
TOSs=not TOS 

940 IF ab="LIST" THEN 1640 ’ 
Definierte Worte listen 

950 IF a$="DEF" THEN 1550 “ 
Definition eines Warts listen 

950 IF as="FORGET" THEN i6B0 * 
Wortdefinition vergessen 

9379 IF as="SFACES" THEN 1740 " 
TOS* Leerzeichen ausgeben 

980 IF a$="CR" THEN 1760 
Wagenruecklauf 

970 IF a$="LF" THEN 1770 
Line-Feed 

1000 IF af="CRLF" THEN 1780 
ER & Line-Feed 

10108 IF a$="CLS" THEN 1790 ° 
Bildschirm loeschen 

1020 IF a#="BEEP" THEN 1800 ° 
Beep-Ten ausgeben 

1025 IF as="G0T0XY" THEN 1810 
Cursor nach T05/?705 setzen 

1040 IF a$="BASIC" THEN 18080 ° 
Ruerksprung nach Basic 

1050 IF as="C@e" THEN 1910 ’ 
TOS; =peek (TOS) 

100 IF as="@" THEN 1920 °’ 
TOS; =deek (TÜS) 

1079 IF as="C!" THEN 1930 ’ 
poke T05,205 

1039 IF ag="ı" 
doske 705,208 

1970 IF af="C?" 


THEN 1940 ° 


THEN 1950 * 
print peek (TOS} 


1109 IF a$="7" THEN 1770 


print deek (T05) 
1110 IF ASC(ası+CHRECO)) >64 AND ASC Cat+CH 
R+(O))<P1 THEN 1520° Wort uebersetzen 
1120 IF VAL(a&)<>0 DR as="0" THEN 1180 * 
Zahl auf den Stack 
1150 loap=loop+1:IF lonop<=count THEN 720 
ELSE 550 


11409 

1150 * BEFEHLE ===-=m=s=m=me=emescc-omesoocem 
SSZZ2ZZm m uumzzzZzSsezszsssmecssemsesune 
1180 

1170 " Zahl auf den Stack schreiben -— 


nn nn pr an rn nm Da AT m Fr m pn rn Br a a a a 


1180 zahl=INT (VAL (af) ):GGSLUB 20205G0T0 1 
130 
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' pfungen 
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en m m a a nn nn na an ana A a m m a a tn 


1200 EOSUB 2040:PRINT zahl;3:60T0 1130 
1210 * Grundrechenarten + - = / ————- 
1220 GOSUB 2060: zahl?=zahl:6G0SUB 2060:za 
hil=zahl +zahl2:GOSUB 2020: G0T0 1130 

1250 SOSUB 7050: zahl12=zahl :GOSUR 7080123 
hl=zahl-zahl2:GOSUB 2020:50T0 1130 

1240 GOSUB 2060: zahl 2=2ahl:560SUB 706012a 
hl=zahl?#zahl:6GOSUB 2020:60T0 1130 

1250 GOSUB 2080: zahl?=zahl=-GRASUB 2040 
1250 IF zahlZ2=0 THEN PRINT EHR$(7}3"= Di 
vision durch Null !"260T0 4130 

1270 zahl=INTizahl/zahl2) :GOSUB 2020:60T 
0 1130 

1280 ”° DUP DROP SWAP EMIT SWPB ———————— 
1290 GGSUB 20940: 605UB 2020:60SUB 2020:60D 
TO 1130 

1300 GOSUB 2050:60T0 1130 

1310 GOSUR 2060:zahl2=2ahl:G0SUB 2060ıza 
h135=zahlızahl=zahl2:B0SUB 2020 

1320 zahi=2ahl3:6G0SUB 2020:G0T0 1130 
1550 GOSUR 2040: PRINT CHR$(zahl AND 255 
;:60T0 1130 


. 1540 ms=PEEK (stack-1) s15=PEEK (stack-2)sP 


OKE stack-t,ls 
1350 POEE stack-2,ns:50T0 1130 
1350 " 
1370 GGSUR 2050: zahl=zahl+1:60SUB 2910:6 
OTO 1130 

1380 EOSUB 2050: zahl=zahl+2:G0OSUB 2010:6 
0TO 1130 

153990 " 5ER ABS NE 


un un mn mn an ln a nn rar m a 


Ir 280 en nn en ana a nr 


a 








m m a a an 


' 1400 GOSUB 2050: zahl=zahi#zahleGOsuE 201 


0:50T0 1130 


‚, 1410 GRSUB 2050: zahl=ABStzahl}:GüOSlB 201 


0O:50T0 1130 

1420 GOSUB 2050: zahl=-zahl:GOSUB 2010:60 
TO 1130 

1430 * MIN und MAX»: Minimum und Maximum 
des T0S und 205 -—---—--- 
1449 GOSUB 2050: zahl2=zahl :GOSUB 2050:za 
H1=MIN (zahl12,zahl}:GOSUB 2019: GOTO 1130 
1450 GOSUB 2050: zahl2=zahl : GOSUB 2050: 23 
h1=NAX tzahl2,zahl);GOSUB 20106:60T0 1130 
1450 *° AND OR XDR NOT — logische Verknue 
1470 GOSUB 2050: zahl2=zahl.:60SUB 2050: za 
hi=zahl AND zahi?2:G0SUB 2916:G0OT0 1130 
1480 BUOSUB 2050: zahi12=z2ahl:GOSUB 2050:2a 
hl=zahl OR zahl27:G0SUR 20910:G0T0 1159 
1470 GOSUB 2050:zahl2=zahl1:6OSUB 2050: 24 
hi=zahl XOR zahl2:60SUB8 2010:60T0 1150 
1500 5G0OSUR 2050: zahl=NOT zahl:G0OSUB 2010 
sG0T0 11350 

1510 * Wort suchen und interpretieren — 
1520 FOR i=0 TO vecabs IF word$ti)<>a# TH 
EN NEXT i:G60Tü 14520 


_programme 


15359 array$tlioop)="";1p2=loop 

15409 k=0:FOR j=lIcdbop+i TO count 

1550 helpary$(k)=sarray$ij)zarrays(j)=""; 
=k+t:NEXT } 

1540 v$=evocab$(ti) 

1570 in=INSTRt1,v$," ") 

15980 IF in THEN array$(1p2)>=LEFT$ (v$ ,in- 
1) zcount=count+1:1p2=lp2+1 

1599 IF in THEN v&$=MID$ (v$,in+1):60TO 15 

70 

1500 FOR m=C TO k:array$im+lp2+1)=helpar 

y$tm)ıNEXT m 

1540 locp=lioop-1:60TD 1130 

1420 FRINT CHR (I 3 a$, "?"s 26070 550 

1630 " LIST: Definierte Worte listen —- 
31640 FOR i=0 TO vocrab:PRINT wordsti);" " 
;:NEXT ieGOTO 1130 

1650 * DEF: kKortdefinition listen 

1660 GOSUB 2050: PRINT word$s(zahl AND 127 

);" = "z;vocab#tzahl AND 127):650T0 1130 

1670 " FORGET: Wortdefinition loeschen — 

1580 loop=laop+1sv3=arrayf(looap) 

1890 FOR i=-O0 TO vocabz: IF v$Sword#ti) TH 

EN NEXT: i:60T0 1720 

1700 FOR m=-i TO vocab: ward$ (m) Sword (mti 

)zvocab${m)=vocab$ (im+rt) 

17109 NEXT mıword$ {m)=""svocab${m)="":voc 

ab=vacab-1:G6G0T0 1130 

1720 PRINT CHR#(7}3 v8, "7"::G0OTO 550 

1730 " SPACES: T0S* Leerzeichen ausdruck 

en ———— a 1 1er GG ee 
1740 GOSUB 2080:PRINf SFACE$ (zahl) 3;:GOTO 
1130 








*" ER, LF, ERLF und CLS: Bildschirmb 
1750 PRINT CHR$(13}3:G0T0 1130 

1770 PRINT CHR${10);:60T0 1130 

1780 PRINT CHR$ (10) ;CHR$ (13); :G0OTO 1130 
1790 CLS:50T0 1130 

1900 FRINT CHR$(7}3:G0TO 1136 

1810 GOSUB 2080: zahl2=zahl:50SUB 7060 

IF zahl2=0 OR zahl=0 THEN 1850 

1830 zahl=zahl AND 255: zanl?=zahlz AND 2 


IF zahl2=0 OR zahl=0 THEN 19509 ELSE 
19A0 

1850 PRINT CHR$(7),*"%# Unzulaessige Curse 

rposition!"=:GOTO 1130 

18340 LOCATE zahl2,zahl;560T0 1130 

1970 * BASICH Ruscksprung nach Basic ——— 


1880 CALL %&BBOO:CALL %BB4E:CALL &BBRA ° 


Tastatur, Text und Grafik zuruecksetzen 
1899 CALL &BBFF:PEN 1:END " SER SET INIT 
IALIZE aufrufen i 

1700 ° PEEK & POKE: Ce e@ C! 
1910 GUÜSUB 2040: zahl=PEEK (zahl) :GOSUB 20 
20:60T0 1430 

1720 GOSUR 2040: zahl =PEEK (zahl) +PEEK {zah 


07 9 


Gompute enöb 
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tips & tricks 

1+1)*x256: 60SUB 2020:G0T0 1130 

1930 GOSUB 2040: zahl 2=zahl1:GOSUB 2040: PO 
KE zahl2,FNlsb (zahl) :GOTO 1130 

1940 GDSUB 2050: 2ahl12=2ahl:GOSUB 2040:PD 
KE zah12,FNIsb (zahl) 

1950 POKE zahl2+1,FNmsb (zahl) :60T70 1130 

1940 GOSUB 2060: PRINT PEEK(zahl);:G0T0 1 
130 


1970 GDSUB 2040;:PRINT PEEK(zahl)+PEEK(za 
h1+1)*254; :sG0OTO 1130 


1780 ’ 

1770 " UNTERPROGRAMME ====2=2==-==-=-=2=-====== 
SSZZEZIEZIII SZ 222m zmzzzemcerm mm mm mm em 
2000 * 

2010 * - PUSH zahl 


2020 IF zahl >45535 OR zahl<-32758 THEN P 
RINT CHR$ (7335 "# Overflom!"zRETURN 


2030 POKE stack,FNlsb (zahi)sPOKE stack#+1 
„FNnmsb (zahl) :sstack=stack+2 

2040 CLS #1:PRINT #1 ,"SP=";MID$ (STR$ (sta 
ck} „23; sRETURN , 
29050 - POP zahl 

20680 stack=stack-2: zahl1=UNT (PEEK (stack)+ 
PEEK (stack+1) #254) 

2070 IF stack<2457&4 THEN PRINT CHRE (FI E" 
* Stack leer !"sstack=stack+2: zahl=0 

20890 ECLS #1: PRINT #1 ,"SP="; MID$(STR$ (sta 
ck) ,2); sRETURN 

2090 * Fehlerbehandlung ----—----—--- 
2100 PRINT CHR$(7)5°”%* Fehler";ERR3 "in";E 
RL: RESUME 550 

2110 END * RENNEN EN EEREHEN 
VEREIN HIN NH IHN EICH REKEN 


TEN | 20- aiaı vormı | T00- so0ı arıas | 1360- 1sreıssoses | 1700-1700: 1aszı 
ZEILENNR.ı  SLMMEN 520- 530: 532161 980- 9701 19200 1580- 1390: 111888 1800- 19103 33915 

100- 110: 46030 540- 5501 62973 980- 950: 46359 1400- 14103 33402 1820- 1830: as944 

120- 130: 70124 540- 5701 76254 1000- 10101104468 10202 19508. SE348 1840- 1850: 70291 

140- 150ı 39352 580- 5901 SB8&P 1020- 10301 34044 ME ER IB40- jamaı a 

140- 170ı 85279 &00- 6101 30530 1040- 1050: 112840 iaoo- I2555 Ss 1490- er 

180- 190: 55616 &20- 6303 114928 1040- 10701114578 1500- 15104 73762 RE r 75737 
.200- 210: 85937 640- 650: 32757 1080- 1 sez1d 1320- 15301 100738 mas: 1voc, Okaas 

220- 2302110414 640- +670r 59340 41100- $110r &4816 ER aa 1900- el es 

Z240- 250: 61637 680- 6701 54624 1120- 1130: 71246 | 1nuo- a 5 1760 ren 

250- 2701 75324 700- 7191 343564 1140- 11501 42994 5 1062 Be 1980- 1790: 

200- 2901 46757 720- 730: 51936 2160- 11701 19045 ee 1 zo: ee 2009- sen 

300- 310: 58989 730- 750:112875 d1ad- 1190: 54840 ER Sn en 2020- 203 a 795 

320- 330: 108535 7650- 7703 64950 1200- 1210: 19334 28504 3420 2040- 2050: 57582 

340- 350: 977864 780- 790: 101626 1220- 1230: 72435 FR aa ne 2060- 20704 74864 

360- 370: 71410 800- 6810: 71135 1240- 1250: 65162 ass 2 an er ie a 

580- 390: 45797 ER eye 1260- 1270: 104732 00: ar SE 2100- 2110: 9724 " 
400- 4103120397 49- 850: 9 1280- 12901 17367 ee 
420= 430: 58761 B40- 8701103916 1300- 13106: 64073 1720- 17303 44257 BESAMTCHECKSUMMEı 32704 
440- 450: 94320 890- 8901 1614 1320- 1330: 64397 1730- 17507: 54417 

460- 470: &B52& 900- 9103 65553 1340- 1350:: 53131 17&0- 17701, 11923 


UPS E TRICKS für den GPC 6128 
Der CPC-6128 Tip 








Welcher CPC-6128-Besitzer hatsich noch | 1. Das Listing von Bankman.bas mit ausführlicher Beschreibung: 


nicht überlegt, wie er zu seinem Dateiver- 
waltungsprogramm oder ähnlichem, die 
neuen RSX-Befehle zu den zusätzlichen 
64k, nutzen oder noch besser einbauen 
könnte? 


20 
40 


Aber meistens scheiterte der Versuch weil 70 NEXT 
es dem Benutzer zu umständlich war, im- - 

mer vor Programmbeginn das Programm 80 
„Bankman“ zu Starten. Und zuallem Übel | 90 > 
ist der Basic-Teil noch geschützt. n | 


Um nun allen denjenigen zu helfen, die 


10 ON ERROR GOTO 0 

30 mceode=HIMEM’15:MEMORY mcode-1:’Speicher für M-Code reservieren 

50 FOR p=meode TO mcode+15 

60 READ p$:POKE p,VAL(“&"-+p$):’Datas in HEX wandeln u. in Speicher POKEn 
DATA e,ff,cd,15,b9,eb,dd,66,1,dd,68,0,73,23,72,c9 


120 a%=0:CaLL mcode, @adh'dem MCode die Variable a% z. verarbeiten übergeben 


sich mit dem BANKSWITCHING nicht be- 130 MEMORY mcode+15:’MCode wieder löschen 


sonders auskennen, ist sie hier eine ent- 140 ° 


sprechende Hilfe. 


150 version=(a%/256)+356*(a%MOD 256):’CPC Version durch a% ermitteln 








.160 IF version<&102 then 320:’Bei Falscher Version zu 320 


“ | Compute mik 686 





® © 
tips & tricks 
170’ 
180 ’Eigentliche Laderoutine 
190 ' 


200 mcode=HIMEM-&524.:'Freien Speicher für Bankman.bin reservieren 

210 ON ERROR GOTO 310:’Bei memoryfehler zu 310 

220 IF mcode<=&7fff THEN ERROR 7:’Wenn res,Speicher unter &8000 MEMORY FULL 
230 ’ 

240 MEMORY mcode-1:L0OAD “bankman.bin“,mcode:’Bankman.bin in freien Speicher 
250 CALL meode:'RSX-Befehle aktivieren 

260 IBANKOPEN,O 

270 END: Das danachfolgende Programm müßte dann bei 330 anfangen 

280 '-und 270 müßte lauten 270 GOTO 330 

290 "Ende der Laderoutine 

300 ’ 

310 PRINT“Memory FEHLER “END 

320 PRINT“Falsche GPC-Version“;end 


2.) Nun muß nur noch Bankman.bas abgeSAVEd werden und Bankman.bin auf die Diskette kopiert werden, wo auch Bank- 


man.bas ist. (J.M.) 





Schneider CPC 464: Das Speichern von Programmausschnitten 


Inder Praxis kann es immer wiedervorkommen, daB mannicht 
ein ganzes BASIC-Programm, sondern nur einen Ausschnitt 
davon abspeichern möchte. Bisher hatman diese Möglichkeit 
nicht gehabt, aber die folgende Routine ermöglicht jeden An- 
wender, daß Abspeichern einzelner Programmabschnitte. Mit 
diesem Programm läßt sich das bewerkstelligen. 


Beim Schneider GPG 464 gibt es keinen 
Befehl, mit dem man aus einem längeren 
Programm einen Teil, etwa eine Subrouti- 
ne, getrenntspeichern kann, sowie umge- 
kehrt der MERGE-Befehl funktioniert. 
Wenn man eine Subroutine von einem 
Programm in ein anderes kopieren möch- 
te, müssen die nicht. benötigten Pro- 
grammzeilen manuell gelöscht werden. 
Das Utility, löst das Problem, denn beliebi- 
ge Teile eines Programmes können auf 
Cassette oder Diskette abgespeichert 
werden! Das heißt, bereits in anderen Pro- 
grammen geprüfte Subroutinen können 
ohne weiteres in ein neues Programm 
übernommen werden. 

Wer einen Assembler hat, kann das Pro- 
gramm direkt eingeben, sonst muß man 
das BASIC-Programm abtippen und lau- 
fen lassen. Nachdem dann das BINÄR-File 
abgespeichert ist, wird das BASIC-Pro- 
gramm nicht mehr benötigt. 
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Will man nun aus einem Programm einen 
bestimmten Zeilenbereich abspeichern, 
so lädt man das Utility mit "MEMORY & 
ASFF‘ und "LOAD „S-SAVE.BIN“ ‘ 


dazu und initialisiert es mit 


’GALL &A600“. 

Jetzt kann man den Zeilenbereich mit 
dem Befehl 

't(erste Zeilennummer),(zweite Zeilen- 
nummer), „(Name)“ ‘ 

abspeichern. 


Programmbeschreibung: 


Da die Art der RSX-Erweiterung nichtson- 
derlich übersichtlich istund sie sich durch 
die umständliche Stringübergabe aus- 
zeichnet, bauen wir den Befehl ein, indem 
wir den "Patch für Befehl ausführen ‘ auf 
diese Routine umbiegen. Dort wird gete- 
stet, ob der Hochpfeil eingegeben wurde. 
Wenn nicht, erfotgt der Rücksprung. (Bei 


GSompute mib 





dem Textin Zeile 70 kann an der Stelle von 
&F8 auch jeder andere Tokenwert über 
&DD eingetragen werden.) 

In Zeile 90 wird die letzte Rücksprung- 
adresse vom Stack geholt. Der Pro- 
grammzeiger wird erhöht und die erste 
Zeilennummer geholt. Der Zeiger wird ge- 
rettet und in 130 wird versucht, die Zeilen- 
adresse der Zeilennummer zu holen. 
Existiert die Zeile nicht, so wird 'LINE 
DOES NOT EXIST ausgegeben und ins 
BASIG zurückgekehrt. 

Ansonsten wird die Zeilenadresse abge- 
speichert und getestet, ob ein Komma 
folgt, Ist die Bedingung nicht erfüllt, wird 
wieder zur Fehlerausgabe verzweigt. 

Ab 210 wird die zweite Zeilennummer ge- 
holt und ebenfalls umgerechnet. Dann 
wird noch die Zeilenlänge (in BC) addiert 
und in 250 abgespeichert. 

Ab Zeile 260 beginnt der wichtigste Teil 
des Programmes. Zunächst werden die 
Pointer auf Programmanfang und -ende 


' gesichert und dann die vorher berechne- 


ten Werte eingetragen. 

Nun wird die ROM-Routine für "SAVE an- 
gesprungen und ganz normal ausgeführt, 
abgespeichert wird aber nur der von uns 
gewünschte Programmteil. 
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Programme 


Im folgenden werden dann die alten Werte 
wieder hergestellt, der Programmzeiger 
vom Stack geholt und ins BASIG zurück- 
gesprungen. 

Bemerkenswert ist noch, daß zu dieser 
Zeit das obere ROM freigeschaltet ist. 


Programmlisting linke 
Seite 
Wenn auch Sie Tips und Tricks 
für die Schneider-Systeme 
kennen und dies an unsere Le- 
ser weitergeben möchten, 


dann senden Sie uns diese um- 


gehend an: 
Tronic-Verlag GmbH 
- Programmentwicklung - 
Postfach 870 
3440 Eschwege 






Diese kurze Überschrift gibt einen Hinweis 
über die Aufgabe des Raumschiffkom- 
mandanten, der dringend ein Gegenmittel 
zur Bekämpfung der Raumkrankheit zu 
den einzelnen, weitentfernten Raumsta- 
tionen fliegen muß, 


Dieser Flug istjedoch mit zahlreichen Ge- 
fahren versehen. So müssen Sie u.a 
durch Metoritenfelder, vorbei an gefährli- 
chen Strahlungen und über Minen fliegen. 


Zum Schutz steht Ihnen ein Schutzschirm 
zur Verfügung, der bei jeder Kollision akti- 
viert wird. Das Schutzschild oder die La- 
serkanone, die Sie zur Abwehr der Meteo- 
riten und Minen verwenden können, be- 
nötigen jedoch eine gewisse Energie. 


Diese Energie wird links durch einen Bal- 
ken angezeigt. Jede Kollision oder jeder 
‘Schuß verringert diese vorhandene Ener- 
gie. Ist Ihre Energie aufgebraucht, wird 
das Spiel beendet, 





18 
28 ’ 
3B ’ 
"ABSPEICHERN VON BELIEBIGEN ZEILENBEREICHEN 


”" ae # GSUPER-SAVE » ® * 


’NIT DEN BEFEHL : 


** (ERSTE ZEILE] „ [LETZTE ZEILE]I „ "CPROGRAMM-NAMEI* 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


3E,C3, 32,7, AC,21,C, A6, 22,8 
AC,C9, FE,F®,C0,D1,23,CD, 91,CE 
ES, CD, 9A, E7, 2B, 22, 5B, A6, E1, 7E° 
FE, 2C, C2, C6, DD, 23, CD, 91, CE, ES 
CD, 9A, E7, 9, 22, 5D, A6, 24, 81, AE 
22,5F, Ab, 2A, 83, AE, 22, 61, A6, 2A 
SB, A6, 22, 81, AE, 2A, SD, A6, 22, 83 
: DATA AE,E1,23,CD, 9, EC, ES, 2A, SF, A6 
DATA 22,81, AE, 24, 61, A6, 22,83, AE, El 
DATA C9 i 

: FOR I=42496 TO 42586:READ AS:POKE I, VALI"AreAS):NEXT I 
SAVE "S-SAVE. BIN", B, 42496, 90 

END 









ner Kollision mit 
einer Mine ist ebenfalls 
das Spielende erreicht. 
Auffüllen können Sie Ihren Energievorrat 
durch Einsammeln von Tanks, die hin und wieder auf 
dem Bildschirm erscheinen. Am Ende einer Runde müssen Sie 
auf einer Raumstation landen. Für die hier noch vorhandene Energie er- 
halten Sie dann Bonuspunkte gutgeschrieben. 





Steuern können Sie Ihr Raumschiff mit dem Joystick 
oder mit den Tasten Cursor rechis, Cursor links und 


Space. 
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109 REM EHBHRHRBEHSEIIEIETEHENIEN 
102 REM *# * 
1G4 REM # Winklbauer Markus * 
104 REM ODssterreich * 
108 REM « %* 
110 REM * Starcommand * 
112 REM # TEIL 1 * 
114 REM * * 
1145 REM KERNE EN INIIHNEEN- 
118 REM 

1206 REM 

122 REM 

124 REM Manu 
125& REM « * 
178 REM * Titelbild * 
150 REM * * 
132 REM HH HBIRRHEIHHHHIRHHRIBIHIHHIHIHIHIHNENE 
134 REM 

135 MODE 0 

158 REM 

140 SYMBOL AFTER 149 

142 SYMBOL 151,120,220,166,222,174,202,1 
18,44 

144 SYMBOL 200,1,3,6,14,27,591,125,0 

145 SYMBGL 201 ,128,192,96,112,216,204,19 
0,0 : 

148 SYMBOL 202,1,1,2,2,7,5,15,1 

150 SYMBOL 205,129,128,654,64,224,160,2409 
‚128 j 
152 SYMBOL 204,53,14,53,78,123,87,62,13 
154 SYMBOL 205,16,158, 128,219, 125,232,20 
8,126 


156 SYMBOL 206,31,63,120,126,126,126,63, 
31 j 
159 SYMBOL 
2,248 

180 SYMBOL 
1&2 SYMBOL 
48,192 

164 #=3 
166 FOR »=3 TO 15: INK x ,„241NEXT 

148 INK 1,03INK O,2&4:PAPER O:PEN 1: BORDE 
R 26sCL8 

170 INK 2,0,26:PEN 24LOCATE 3,253 PRINT"P 
lease Waite „...." 

172 k=3 
174 PLOT 146,250,0 

17& FOR g=1 TO 2 

178 FOR x=1 TO 50:PLOTR 1,2,k:DRAWR 8,03 
PLOTR -8,0 

180 k=k+1:31IF k=15 THEN k=3 

182 NEXT 

184 FOR x=1 TO 50sPLOTR 0,-2,k:DRAWR 8,0 
:PLOTR -8,0 

185 k=k+1ı1IF k=215 THEN K=-3 

188 NEXT 

190 NEXT 

192 PLOTR 34,0,0:FDOR x=1 TO 20:FLOTR 0,1 
„kaDRÄWR 20,0: PLOTR -20,0 

1974 k=k+1sIF k=15 THEN k=3 

19& NEXT 

198 PLOT 350,350,0 

200 FOR gei1 02 - 

202 FOR x=1 TO S0sPLOTR 0,-2,kıDRAWR 8,0 


208,3,15,21,21,15,3,31,3 
209,192,240,168,168,240,192,2 
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» 


programme 


204 k=k+1: IF k=15 THEN k=3 

206 NEXT 

208 FOR x=1 TO S50:PLOTR 1,2,k:DRAWR 9,0: 
PLOTR -8,09 

210 k=k+1: IF k=15 THEN k=3 

212 NEXT 

214 NEXT 

21& PLOTR 10,-100,0 

218 FOR x=1 TO 20:4PLOTR 0,1,k:DRAWR 20,0 
sPLOTR -20,0 

2209 k=k+1:1IF k=15 THEN k=3 

222 NEXT 

224 GOSUB 2356 

226 a=3:ba4:c=5: deßı e=7,f=8:g9=9ıh=10s i=1 
13 j=12:k=13: 1-14 

228 PEN 1:L0CATE 4,211PRINT"l1oading „." 
230 FOR =3 TO 14ı1INK x»,x2:NEXT 

232 LOCATE 3,253 PRINT" ” 


RUN“ 

PLOT 76,210 

READ asREAD b 

IF a=-111 THEN 274 

DRAWR a,b,fsf=f+isIF f=15 THEN #=3 
244 GOTB 238 

246 DATA -10,10,-10,0,-10,-10,-5,-10,0,- 
10,10,-10,5,0,5,-10,0,-10,-10,-10,-20,0 
248 DATA 22,0,54,66,-25,-66,4,12,-4,4,—4 
‚0,-4,-4,0,74,4,4,4,0 

250 DATA 36,34,-14,-30,4,-8,20,0,8,8,10, 
26,-4,6,-17,05-8,- 24-43 -6,44 4, 24,0,5,55 
2,6,713,-30,54,-8,4,0 

252 DATA 24,38,-4,-15,5,-2,5,0,5,2,5,15, 
-10,-36,4,-2,2,0,20,28,10,8,10,0,8,-4 
254 DATA -8,4,-10,0,-10,-8,-6,-20,5,-8,1 
0,72,3,0,942 

256 DATA 30,356,-14,-530,4,-8,20,0,8,8,10, 
26,-4,6,717,0,-8,-2,-4,-6,43,-4,24,0,15,4 
258 DATA 8,6,714,-538,12,30 ,6,6,6,2,4, 2, 
2,72,0,*2,71,74,-10,-30 

260 DATA 12,32, 64646423442, 2,-2,0,-2,-1 
„-4,-B,-22,2,—4,6,-2,2,0,2,2, 20,36 

262 DATA -14,-38,12,30,6,6464 2545-2, 24-2 
,0,-2,-1,-4,-10,-30 

264 DATA 12,32,6,6,6,2,4,372, 2,72, 0,72, 71 
1—4,-8,—22,2,—4,6,-2,2,0,2,2,20,34 

266 DATA -14,-30,4,-8,20,0,8,8,10,24,-4, 
6,-17,0,-8,-2,-4, 6,4, 4,24 0,555 2464-1 
34-30 ,6,-10,4,0 

268 DATA 4,2,20,36,-12,-38,11,34,8,4,4,2 
„4,0,4,-2,2,-4,-10,-30,2,-4,4,-2,2,0,4,2 
270 DATA 22,36,-14,-30,4,-8,20,0,8,8,10, 
26,-4,6,-17,0,-8,-2,-4,-6,4,-4,24,0,5,5, 
2,6,8,26,—19,-56,4,-8,4,0 

272 DATA -111,-111° 

274 IF dd=0 THEN PLOT 100,210 ELSE RETUR 
N 

276 RESTORE: dd=1:60TN 238 


J 

234 
236 
238 
240 
242 


Die Checksummen von Teil 1 finden 
Sie auf Seite 59 


Compute mib 
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100 REM MN EEE EHER ERAHNEN 
77 

101 REM * 

%* 

iO2 REM * STARGCOMMAND TEIL II 

* 

103 REM # 

%* 

104 REM HEHE EEE EHRE 
E77 

105 REM 

105 REM 

107 REM 

i08 REM 

107 REM RUHE EERRITIHIISIHIAIHIHII IHNEN 
110 REM * Maschinensprachpragramme * 
11L REM KERrKHRRREF RER FCH FR HF EU UNE 
i12 REM ” 

113 his=1000 

11% MEMORY 22500 

115 DATA 33,0,172,17,0,70,150,659,237,175 


‚201 ,33,0,90,17,0,192,1,0,64,237,176,201 
116 DATA &21,01,01 ,&cd,%73,&hb ‚35,08 ,&re 
d,%5a,&hb ,&cd,%5a,&bb,&09 

117 DATA &3e,01 ,&cJ,8&90,&06,&21,19, 10, &c 
4,%75,&bb „u3e, 200 ,&cd ,%&5a ‚&bb,&3e,201,%c 
d,853,&bb,&c9? 

118 DATA &3e,01,%24,%70 ,%bb „&21,17,10,&c 
4,875 ,kbb „&3e,202,&cd ,&5a,&bb ,&3e,203,&c 
d,853,&bb,&c7 

117 DATA &38,01,&04,%&90,&bb,&21,1,10,&cd 
2) %&75 q &bb E) Se z ı51 4 Rd Pr >=r 9 &bb „sc9 

120 DATA %&3e,01 ,&cd,&70,&6bb,&21,1,10,&cd 
„&75 ,&bb ,%3e ,205,%cd ,%&5a ,&bb,&32,205,&cd 
„e5a,&bb ,&er7 

121 DATA &3e,02,&cd,%70,%0b,&21,1,10 Led 
„675 ,&bb ,&3e, 208 ,%cd,%5a,&bb,&3e, 209, &cd 
„%32,&6b,&c7 

122 DATA L3e,03,&0d,890 ,&bb,&21,1,10,&cd 
3 473 ‚ahb q %3e 206 ,Scd [} «Sa, tb, %35e,207 ,&cd 
L) Sa q %bb [7 %c97 

123 FOR a=39500 
NEXT 
124 FÜR 
sNEXT 
125 FOR 
NEXT 
1264 FOR 
ıNEXT 
127 FOR 
3NEXT 
128 FOR 
3NEXT 
127 FOR 
NEXT 
130 FOR 
NEXT 
1531 REM 
132 REM HERREN EN HR 
133 REM * Titelbild * 
134 REYI EURER II FEN EN EHI ENTE 
155 REM 

1356 GOSUB 160 


TO 3I7523:READ nıPOKE a,W 


a=22520 T0 22534:READ wıPOKE a, 


a=22540 TO 22541:READ wePÜKE a,w 


a=22570 TO 2259i1:READ w:POKE 


a=22500 TB 226&14:READ w: POKE 


a=-22620 TO 22641:READ w:POkE 


a=22450 TO 224713READ w:POKE a,w 


=22580 TO 22701sREAD wPOKE a," 


Compute mit 


” 


137 TALL 39500:60T0 141 

1389 a$=INKEY$:MDDE Os INK 1,0: INK 0,26 
1397 BORDER 24:PEN O:PAFER 1:C15 

140 PRINT CHR$ (22) ; CHR$ (0) :CALL 39512 
141 a=3ıb=s4:c=Sıdadre=7: f=drg=9:h=e1l0siel 
12 j=12:k=13: 114 

142 WINDOW 2,19,12,213PAPER 1:FEN O:PRIN 
T CHR$(22I 5SCHRFL1) sLOCATE 11,8:PRINT his 
s PRINT CHR$I2Z) sCHR$ (0) 

143 INK 2,26: INK a,3:a=a+l: IF a=15 THEN 
a=3 
144 
145 
146 
147 
148 
149 
150 
151 
152 
193 
154 
155 
156 


INK 
INK 
INK 
INK 
INK 
INK 
INK h,10:h=h+1: IF h=15 THEN 
INK i,l4lz2i=i+irIF i=15 THEN 
INK 3,12: j=j3*+1ı IF j=15 THEN 
INK: k, 13: k=k+12:1iF k=15 THEN 
INK 1,44s1=1+1s IF 1=15 THEN 
as=INKEY$ 

IF a$="s" OR as="S5" THEN GOTO 172 
157 IF as="1" OR a$="L" THEN GOTO 517 
159 IF a$="e" OR a$="E" THEN MODE 2: INK 
0,0: INK 1,24:FEN 1:FAPER O:BORDER 0:C1L5: 
END 

1597 GDOTD 143 

140 WINDON 2,19,12,21: PAPER i:PEN 0:CLS 
161 PRINT CHR$ {22} 3 CHRE$ (1) 

152 FOR x=1 TO 180 STEF Azy=yt2ın=ent+t13PL 
OT 30+x,50+y,n:DRAW 510-x ,„50+y: DRAW &10- 
%,230-yıDRAW 30+x „230-ysDRAW 30+% „50+y: 1 
F n=14 THEN n=2 

185 NEXT 

144 LOCATE 1,5: PRINT 
TART E=ENDE 

AERUNG 


b,„4:5b=h+1: IF b=15 THEN b=S 
c,Sse=ce+Hls IF c=15 THEN e=3 
d,s:d=d+1sIF d=15 THEN d=3 
e,/:ıe=e+irIF e=15 THEN e=S$ 
#,Bef=f+l1IF f=15 THEN #=$ 
9,92g9=g+t1s IF 9=15 THEN 9=3 
h=3 
i=5 
3=3 
k=3 
1=3 


" 5=5 
L=ERKI 


HISCORE: " 
PRINT CHR& (22) 3; CHR#$ (0) 
RETURN 
REM 
REM EHHHOHSEHIERIIHHTHHIHIIHEIAIHIHIHHHRE 
REM * Spiel - Start * 
REM ERRHSHRRHHIRRIHISHHIHIRTHESIHIIHSENE 
REM 
PRINT CHR$ (25) sa CHR$ (O) 1 1 1=20 
i4=3 
11=0.5:12=1s13=1 
SCc-D: sca=0 
FEN #1,1:PAPER #1 ,0:EL8 #1 
gc=15 
GOTO 208 
RESTORE 187 
G0TO 182 
PLOT 516,200 
READ assREAD bb 
IF aa=-101 THEN 181 
IF aa=-i1lf THEN RETURN 
DRAWR aa/s1,bb/s2,0 
GSOTO 192 
DATA -10,10,-10,0,-19,-10,-5,-10,0,7 


145 
166 
147 
168 
187 
170 
171 

172 
175 
174 
175 
176 
177 
178 
1797 
180 
181 

182 
183 
194 
195 
18& 
197 
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10,10,-10,5,0,5,-10,0 

188 DATA -10,-10,-10,-20,0 

189 DATA 22,0,54,66,-25,-66,4,12,-4,4,-4 
044,450, 4445-4, 8,0 

190 DATA 36,34, -14,-30,4,-8,20,0,8,8,10, 
9.—4.6,—17 

191 DATA 0,-8,-2,-44-6,4,-4,24,0,5,5,2,6 
„-13,-30,6,-8,4,0 

192 DATA 24,38,-4,-15,5,-2,5,0,5,2,5,15, 
-10,-3844,-2,2,0,-101,-101 

193 DATA -8,4,-10,0,-10,-8, 64-20 ,5,-B, 1 
'0,-2,5,0,5,2 

194 DATA 30,36,-14,-30,4,-8,20,0,8,8,10, 
26,-4,6 

195 DATA -17,04-8,-2, 4,76 ,4,-4,24,0,15, 
4 

196 DATA 8,6,-14,-38,12,30,6,6,6, 244-2, 
2,=240,-24-14-4,710,-30 

197 DATA 12,32,6,6, 632434472, 2, 072,0, 2,71 
144-8, -22,24-4,64-2, 25032, 2,20,56 

198 DATA -14,-38,12,30,64656,2,4,-2,2,-2 
„O,-2,-14-4,-10,-30 

197 DATA 12,32,6,64652,4,-2,24-250,+2,-1 
44-8, -22, 254,64 -23,25,0,2,2,20,538 

200 DATA -14,-28,4,-8,20,0,8,8, 10,26, 74, 
&6,-17, 0,8, 72, Ay 6,44 4,24 

201 DATA 0,5,5,2,6,715,-28,6,-10,4,0 
202 DATA 4 ‚2,20, 36,-12,-38,11,34,8,4,4,2 
4,0,44-2,2,-4 

203 DATA -10,-30,2,-4444-2,2,0,4,2 

204 DATA 22,36,-14,-28,4,-8,20,0,8,8,10, 
264-8 ,64-17,04-84-2,—4,-6,8,-4,24,0,555, 
2,8,8,26,-19,-56,44-8,2,0 

205 DATA —141,-111 

205 ENT 1,100,10,1 

207 ENT 2,115,30,1 

208 ENT 3,100,10,1 

209 ENV 4,50,15,30 

210 moneE 1 

211 INK 0,0 

212 INK 1,26 

213 INK 2,9 

214 INK 3,15 

215 BORDER 15 

21& WINDOW 11,30,4,22 

217 WINDOW #2,31,40,1,25:PAPER #2,3:CLS 
#2 

218 WINDOW #3,1,10,1,25 :PAPER #3,3:CL8 
#3 

219 WINDOW #4,1,40,1,3 
4 

220 WINDOW #1,1,9,5,21:FAPER #1 ,1:FEN # 
„O:CLS#1 

221 WINDOW #5,1,40,23,25:PAPER #5,37CL5# 
5 . 

222 WINDOW #6,6,7,7,15: PAPER #6,2:C15#6 
223 WINDOW #7,32,40,5,213 PAPER #7,1:CL5# 


PAPER 44,5: 0158 


224 ev=0:4=-15: full=i72 

225 level>=-1i 

226 PAPER #7,0:PEN #7 ,1:PEN #i1,3 
227 PAPER 4:PEN 1:INK 2,9 

228 GOSUE 333 


programme 


Z3D REM RRRUNHHHHH HERNE HH EHER HH 
*r 

231 REM * Hauptteil 

232 REM BRENNEN UNI H NR 
le 

233 REM 

254 REM : 

235 sp=sp+risılF sp=5 THEN- sp=0:605UB 354 

236 IF sco=250 THEN I1=1:12=>1:13=-1:L4=0: 
Cc=i1 

2537 IF, sco=310 THEN 392 

238 IF NOT <INKEY{1)> OR NOT(INKEY(B)I) O 
R NOT (CINKEY(47)) THEN 2853 

239 jo=JDOYtO)=IF jo=4 OR jo=B OR jo=si1dä T 
HEN 293 

240 POkE 72547,x:CAlL. 225409 

241 REM 

242 REM KURKUREEREER HEHE RT HT REN RR 
E27 


243 REM « Hindernisse setzen 


* 
244 REM BHBRBHHRRHERRHEHHAIARBBIHISIHHIAIIN 
+ 
245 REM 

24& IF 14=0 THEN 253 

247 il=ii+RND#2-teIF i1<10+i4 THEN il=il 
+1 ' 
248 IF i1>30-14 THEN ilsiil-l 

249 PLOT i11#16-14*16,338,1:DRAW 150,338: 
FLOT ii#14+14#16, 3350: DRAW 476,338 

=51 REM # METORIT 

* 

2553 g=RND:IF gsilt THEN 258 
254 dd=INT (RND#1F7+1):POKE 22607 ‚dd: CALL 
ZZA00 

255 REM # Grosser Metorit %* 
258 gi=RND: IF gi<12 THEN 263 
259 dd=RND*18+1:POKE 22627 ,ddsCALL ER 
Z6i REM * MINEN ZEICHNEN 

263 92=RND: IF g2<13 THEN 268 

264 dd=RNDH1A+1:POGKE 22457,ddılcAlL 22650 


266 REM # TANK ZEICHNEN # 
249 PEN Sscc=sce+t: IF cc=50 THEN ec=1:6G0T 
oa 270 


* 


247 GCTO 274 

270 bb=INT iRND#*#12+4) :POKE 22487 ,bb:CALL 

22680 

272 REM +# Bildpunkte pruetfen * 
274 t1=TEST ((x+109)#14-9,47):1F t1 =i OR 
ti=2 DR ti=4 THEN 294 

2753 IF t1=3 THEN 3053 

275 tI=TEST (+10) #i6+7,57):lF ti =1 OR 
t1=2 OR ti=4 THEN 294 

277 IF ti=3 THEN 303 

278 CALL 22520 

277 GOTO 235 

280 REM HENKE EEE REKER RHEIN 
291 REM + Tastaturabfrage * 
ZB REMCHHUHHERNEHE EHRE THU HEHE HEFTE 
za jo=J0Y (O0) sIF INKEYLAMI=O GR jo=siß TH 


EN 31& 
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Was fehlt auf Ihrem 
a 


(En EEE ee 





ll. \ 


Ai EN = mal anders betrachtet 


Ein ganz anderes Gomputerbuch, alsman 
gewöhnt ist, hat der Weitkreisverlag her- 
ausgebracht. 

Es stelltin einfachen Beispielen die grund- 
legende Funktionsweise des Computers 
dar. Insofern ein ideales Buch für den ab- 
soluten Einsteiger. Aber halt! Was ist dar- 
an so anders, als in den vielen anderen. 
Einsteigerbüchern? Das Buch, das 
schließlich auch „DAS ANDERE COMPU- 
TERBUCH“ heißt, führt ausführlich in die 
Geschichte des Computers ein, und 
scheut auch nicht die Diskussion solcher 
Themen wie Datenschutz, Rationalisie- 
rung durch Gomputer oder auch die Be- 
deutung von Computern in der Kriegs- 
technik. Auch das „Kriegsspiel“ im Kin- 
derzimmer wird eingehend problemati- 
siert, 

Das andere Com 
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Eomputarspiele und Baer 


von Keith $. Reid-Green 


Anleitung zur eigenen Software-Entwicklunt 





Erstes Ziel des Buches ist es, dem Leser 
beim Schreiben eigener Strategie- und 
Spielprogramme zu: helfen. Es beginnt mit 
einfachen Grundlagen, die dann im weite- 
ren Verlauf des Buches ausgebaut wer- 
den. 

Der Inhalt gliedert sich in drei Teile. Teil 1 
beschreibt die zum Programmieren not- 
wendigen Grundlagen. Zum Verständnis 
des Spielbaus und der Spielbeschreibun- 


gen werden hier alle Vereinbarungen (Co- 


dierung etc.) aufgeführt, die in den Pro- ı 


grammbeispielen verwendet werden. 
Teil 2 enthält einige einfache Beschrei- 
bungen von Spieletypen unter Verwen- 


dung von trigorometrischen, geometri- 


schen und physikalischen Prinzipien. Je- 


des Kapitel beschreibt einen speziellen 
Spieletyp, bzw. hebt eine bestimmte Idee 
oder Spieltechnik hervor. Außerdem findet 


Sompube mik 





tiker Gero von_Randow Hrsg 


Neben einem Computer-ABC, das den Le- 
ser durch das fachchinesisch führt und ei- 
ne Reihe von wichtigen Adressen, die man 
zum Teil in keiner Publikation erfährt (z.B. 
die der Datenschutzbeauftragten), bietet 
der Verlag noch einen Diskettenservice 
mit einfachen Hilfsprogrammen an. 


Insgesamt legt das Buch mehr Wert auf 
den gesellschaftlichen Weltblick der 
frischgebackenen User als auf fachmän- 
nisches Wissen. Expertenbücher gibtesja 
nun auch schon reichlich. Allerdings völ- 


. lig mißglückt muß man den Vergleich der 


politischen Systeme von Bundesrepublik 
und DDR betrachten. Denn noch ist nicht 
zu erkennen, daß die DDR mit den neuen 
Technologien humaner umgeht, als ande- 
re. 

Dortmund, 1985, Weltkreisverlag 
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der Leser hier Lehrreiches zum Einsatz der 
Kenntnisse aus Mathematik, Physik und 
Computerwissenschaften. 

In Teil 3 wird die Entwicklung von Grafiken 
und Texten in Spielprogrammen aufge- 
zeigt. Er enthält viele Anregungen für Pro- 
jekte, die über den Rahmen des Buches 
hinausgehen. 

Das Buch bietet keine Spielesammlung 


an. Der Schwerpunkt liegt auf der Erklä- 
rung und Beschreibung der Problemste!- 
lung (Ausgangspunkt), der Pseudocodie- 
rung ist im Anschluß daran erläutert. Alle 
Programme sind zwar in BASIC geschrie- 
ben, obwohl nicht die Eigenschaften eines 
bestimmten BASIC-Dialekts die Program- 
mierung bestimmt haben. Zum besseren 
Verständnis wird ein sogenanntes Struk- 


bücher 


turiertes BASIG eingesetzt, das Pascal- 
ähnliche Sprachkonzepte anbietet. Die Co- 
dierung ist auf Tektronix BASIC bezogen. 
Durch die weitgehende Unabhängigkeit 
der Spielprogrammerklärung von einem 
BASIC-Dialekt kann das Buch als Lehr- 
und Grundlagenbuch eingesetzt werden. 
Braunschweig: Viewag 1986. WI, 314 $. Kart, 
DM 56,- ISBN 3 528 04357 1 


Karl-Heinz Becker und Michael Dörfler 


Computergrafische Experimente mit Pascal 





Ordnung und Chaos in Dynamischen Systemen 


Das „Apfelmännchen“istnur eine der vie- 
len Figuren aus der Palette der mit dem 
Computerprogramm entworfenen Bilder 
dieses Buches, das in seiner Art der Ver- 
knüpfung von Wissenschaftstheorie und 
Computeralgorithmen wohl einmalig ist, 
ja eine Pionierleistung darstellt. Dazu tra- 
gen einerseits der Bilderreichtum, dann 
die Pascal-Programme auf Mikro- 
computern (Apple Il, Apple Macintosh und 
IBM PC) und die eingängige und verständ- 
liche Präsentation der Theorie Komplexer 
Dynamik — Chaos und Ordnung - bei. 


Mit ihrer gelungenen Synthese von ma- 
thematischer Theorie - die für jeden mit 
Kenntnissen der Mathematik der Sekun- 
darstufe I| nachvollzogen werden kann - 
und Programmierpraxis in Pascal betreten 
die Autoren K.-H, Becker und M. Dörfler 
publizistisches Neuland. 


Das Buch wendet sich an alle, die über ein 
Computersystem verfügen und Spaß am 
Experimentieren mit Computergrafiken 
haben. Die verwendeten mathematischen 
Formeln sind so einfach, daß sie leicht 
verstanden und auf einfache Weise be- 
nutzt werden Können. Dabei wird der Le- 
ser mit einem Grenzgebiet aktueller, wis- 
senschaftlicher Forschung bekannt ge- 
macht, in dem ohne Computereinsatz und 
grafische Datenverarbeitung kaum eine 
Erkenntnisgewinnung möglich wäre. 
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Im ersten Teil leitet eine große Zahl von 
Aufgaben zu eigenem experimentellen 
Arbeiten und selbständigen Lernen an. Im 
zweiten Teil werden die wichtigsten Infor- 
mationen zur Benutzung des UCSD-Pas- 
cal vermittelt und im dritten Teil werden 
die Bausteine angegeben, mit deren Hilfe 
eigene computergrafische Experimente 
durchgeführt werden können. 

Die Angaben im zweiten und dritten Teil 
beziehen sich aufdie Apple Pascal Version 
1.1 des UCSD-Pascal-Systems, das auf 
dem Apple ii und allen Applekompatiblen 


GSompute miß 


Rechnern läuft; Implementierungen auf 
anderen Rechnern (Macintosh und IBM 
PC) weichen geringfügig ab und sind aus- 
führlich erläutert. 

Braunschweig: 

Vieweg 1986. XI, 319 $. mit 105 Abbildungen. 


Das ist die SU PER- 
GEWINN-CHANGE 


für alle 


C-16/116 Besitzer! 


Die Redaktion der Zeitsehrift „Aktueller 
Software-Markt“ verlost in Ihrer nächsten 
Ausgabe (Heft 5): insgesamt 90 Pro- 
EU ELCH MATT TETULLLERSTANG 
tür den Commodore 18/116 Es handelt 
sich hierbei um die neuesten Produkte 
aus dem Hause Mastertronic. Wenn Sie 
sıch diese tolle Gewinn-Chance nicht 
EUGEHEIUESSEHRNOUCHEIEGERSIEH IE 
ren Zeitschriftenhändler nach „ASM“ 
und lösen Sie das Preisrätse‘. 


Nutzen Sie Ihre Chance und ge- 
winnen Sie IQ von insgesamt 500 
zu verlosenden Programmkas- 
setten. 





Programme 


284 IF »=1 THEN 287 

785 jo=JüOY{O)=IF INKEY(SI=0 OR jo=4 THE 
N x=x-11t4=TEST ( (x+10)#16-9,51) 

266 IF x=19 THEN 289 

287 jo=JOY(O)zIF INKEY{1}=0 OR jo-8 THE 
N x=x+1:t4=TEST € (x+10) #16+7,51) 

268 IF t&=1 OR t4=2 OR t4=4 THEN 294 
289 POKE 22577 ,xıCALL 22570 

290 GOTO 246 

291 REM HEHE EIER HE 
*% 

2972 REM * 
+ 

293 REM FACE HER FREE UNTHREER NR HERREN 
Be 

294 IF ti=2 DR t&4=2 THEN GOTO 50% 

295 SOUND 2,40,10,15,0,0,15 

296 BOÜRBER 20 

2377 d=d+1:full=full-2s3 IF full <33 THEN 5 
09 

2378 SOUND 1,full+30,10,15,1,1 

299 PEN 3: LOCATE x,17:PRINT CHR$ (2009 ;C 
HR$ (20135 

300 GOSUB 351 

=01 IF d<20 THEN 297 °—_ 

390? BORDER 15:d=0:6G0T0 278 

303 SOUND 1,100,50 

304 REM HHHBBHR HRS NER 


Kollision 


* 

305 REM # (Tank) neue Energıe 

* 

304 REM SEHE IRRE RIEF RR RER 

E3 

307 gi= 

30R gi=gi+i:full=full+2: IF full>172 THEN 
full=172:60T0 278 

307 PLOT 80, full+124,2:DRAW 110, ful1l+12& 
zZ 

7 

310 PLOT 80, full+128,1:DRAW 110,full+128 
1 

J 

si1 IF gi<15 THEN 308 

3512 GOTO 278 

313 REM KR HEREIN 

314 REM * Schuss a 

315 REM HUHN HR HERHRHHNR ER EHN 

31& FEN 1:3LOCATE x,19= PRINT CHR#$ (200) s CH 

R$(701)3 :55=51 

317 SQUND 3,20,60,7,1s1 

318 IF ss>335 THEN 322 

319 ss=55+1Aıt2=TEST (1x+10)#16-9,55) 

320 t3=TEST ((x+10)#15+7,5ss) 

321 IF t2=0 AND t3 =0 THEN 318 

322 PLOT (x+10)#14+7,60,1:DRAW (x+10)#1& 

+7,ss:PLOT (x+10)#16-7,60: DRAW (v+ri1öo)rid 

-9,55 

325 PLOT {x+10)#14+7,580,0: DRAW (+10) #1& 

+7,SS553FLOT (x+10)#15-9,60:DRAWN (x+10)#16 

-9 „ssed=d 

324 d=ed+1l:fuli=full-2: IF full <55 THEN 5 

09 h 

325 GOSUB 351 

=25 IF d<5 THEN &24 ELSE d=d 

327 IF t?=0 AND t3=0 THEN 244 


en 


378 LOCATE x, (22-55/16) PRINT " " 

323 GOTO 248 

330 REM Meer EEE 
351 REM * Bildschirmaufbau * 
SI2 REM EHRE ER KUHN HERR HF REN 
3353 PLOT 159,46,1:DRAW 480,44:DRAW 480,3 
52:DRAU 158,352:DRAW 158,46 

334 PLOT 148,36,1:3DRAW 490,36:DRAW 490,5 
AZı DRAW 149,362: DRAW 148,55 

335 PLOT 159,46,1:DRAW 149,36:PLOT 490,4 
&:DRAW 490,36: PFLOT 490,352 

356 DRAW 490,362:PLOT 158,352:DRAW 148,5 
62:PL0OT 158,46:DRAW 148,30 

337 PLOT 1,1:DRAW 148,54,1=:PL0OT 640,1:DR 
AW 490,36:5PFLOT 1,400:DRAW 148,362 

338 LOCATE #7,2,14: PRINT#7," Score " 

3359 LOEATE #7,2,15: PRINT#7," Ö ® 

340 LOGATE #1,3,3:PRINT#L,"F." 

341 LOCATE #1,35,11:PRINTHL „'E.* 

342 PEN #1,1:PAPER #1,0:CL5 

343 LOCATE #1,2,145PRINT#1," Level " 

344 LOCATE #1,2,15:PRINT#1," “,LOC 
ATE #1,3,15:PRINT#1 „level 

345 PLOT 640,400: DRAW 490,362 

346 PLOT 580,265,0:DRAWR 30,0:FLOT 580,2 
54: DRAUR 30,0 1 

347 PLOT 530,300; s1=2.B:s2=1 

348 GOSUB 1797 

347 RETURN 

350 full=full-2 

351 PLOT 80,full+130,25DRAW 110, full+153 
0,2:IF full<1 THEN END 

352 PLOT 80,full+128,1:DRAW 110,full+128 


„x 

353 RETURN 

354 full=full-2 

3553 FLOT 80,full+130,2:DRAW 110, full+13 

0,2:1F full<33 THEN 507 

354 PLOT B80,full+128,1:DRAW 110,full+128 
1 

k} 

357 scH=sco+ä:LOCATE #7,2,15:PRINT #7,SC 

o+56 

358 RETURN 

3359 REM KREIEREN URRURTR 

340 REM * Game Qver * 

361 REM MH 

362 CLS 

363 11=1:12=1113=1:14=0 

364 INK 2,0:GDSUB 374 

365 PRINT CHR$ (23); CHR#&(1) 

3645 IF scotse>his THEN his=sco+tscısco=o 

367 FOR d=1946 TO 48 5STEP -2:50UND 1 ,d+r30 

0,1,13,0,0:PLOT 150,d,0:DRAW 478,d,1:PLO 

T 1&0,398-d,0:DRAW 478,398-d,1:NEXT 

368 FOR x=1 TO 4009::IF INKEY(47)=0 THEN 
1358 

3567 NEXT 

370 FOR d=48 TO 198 STEP 2:SQUND 1,d+300 
„1,13,0,0:FLOT 150,d,0:DRAW 478,d,11Pi.0T 
150,378-4,0:DRAW 478,578-d,13NEXT 

371 FOR »=1 TO 200sIF INKEY(47)=0 THEN 1 

38 

372 NEXT 


56 Compute mib 6186 





‚6/86 


873 8070 367 


374 =0 

375 PLOT 220+f ‚„220+f ,2 

376 DRAWR 0,50: DRAWR 25,0: DRAWR-25,0:DRA 
WR 0,-50:DRAWR 25,0:DRAWR 0,25: DRAWR -10 
oO 

® 

377 PLOTR 25,-25 

378 DRAWR 25,50:DRAWR 25,-50:DRAWR -12,2 

S5:DRAWR -—25,0 

577 FLOTR 52,-25 

380 DRAWR 0,50: DRAWR 25,-50:DRAWR 25,50 

DRAWR 0,-50 


‚381 PLOTR 20,0:DRAWR 0,50:DRAWR 25,0:FLD 


TR -25,-25:ı DRAWR 25,0sPLOTR -25,-25:3 DRAW 
R 25,0 

382 PLOT 230+# ,120+f 

383 DRAWR 0,505 DRAWR 25,0:DRAWR 0,-50:DR 
AUR -25,0 

384 PLOTR 40,0:DRAWR -25,50:FLOTR 50,0:D 
RAWR -25,-50 

585 PLOTR 36,0:DRAWR 0,50: DRAWR 25,0:PLO 
TR -25,7-25: DRAWR 25,0:PLOTR -25,-25: DRAW 
R 25,0 

385 PLOTR 20,0:DRAWUR 0,50: DRAUR 25,0: DRA 
WR 0,-25:DRAWR -25,0: DRAWR 10,0:DRAWR 15 
3 -25 

387 f=f+1:IF f<10 THEN 375 
388 LOCATE 2,197; PEN 23PRINT" 
eken "=RETURN 

387 REM Han EH HEN 
de 

390 REM # 
* 

ZSFI1 REM HERNERERKENRNFRER EHRE NEUN HN 

“+ 

392 d=294:PRINT CHR$ {23} 3CHR$ (0) 

393 RESTORE 401 

394 LOCATE 1,1:PRINT CHR$ (8) 


Space drus 


Basisschiff erreicht 


‚595 GüOSUB 445 


396 PLOT 280,d,3:d=d-16: IF d<80 THEN 448 
397 READ a:READ b:IF a=-1 AND b=-1 THEN 
407 | 

398 a=ar2ıb=b#2 

397 DRAWR a,b 

490 GOTG 397 

401 DATA 35,0,0,20,-8,8,-20,0,-8,-9,0,-2 
0,8,8,0,20,0,-20,20,0,8,-9,-8,8,0,20 
402 DATA -1,-1 

403 DATA -2,0,0,10,-4,4,-8,0 

404 DATA -4,—4,0,-10,4,0,0,14,0,-14,8,0, 
0,14 

405 DATA -1,—1 

406 DATA 6,0,6,6, 676, 28,0 

407 DATA Burn 0-0 

408 DATA -1,-1 

409 LDEATE 1,1rPRINT CHR$ (8) :GDSUR 445 
410 LOCATE 1,1:PRINT CHR$ (9) 

411 G0SUR 445 

412 PLOT 324,318,3 

413 READ a:READ beIF a=-i1 AND b=-1 THEN 
417 

414 asarzıb=b#2:- 

415 DRAWR a,5 


Compute miß 


programme 


41& GOTO 413 

417 LOCATE 1,1:PRINT CHR${8) 

418 PLOT 332,314 

4197 GOSUB 445 

420 READ a:READ beIF a=-1 AND b=-1 THEN 
424 

421 a=a#2:b=b#2 

422 DRAWR a,b 

4753 GOTO 420 

424 FOR hj=1 TO 5:PLOT 276,328:DRAW 276, 
350 

425 PLOT 355,328:DRAW 354,350 

426 PLOT 284,334:DRAW 284,350 

427 PLOT 346,354: DRAW 346,350 

328 GOSUR 445 

429 FOR qg=1 TO hix20:NEXT 

430 LOCATE 1,1:PRINT CHR#$ (8) 

431 NEXT . 

432 y=-2:FOR hj=0 TO 20 STEP Seyey+s5 
433 FLOT 3564-hj1,328:DRAW 351-h3j,350 

434 PLOT 276+hj ,328:DRAW 281+hj ,350 

435 PLOT ZB4+y,„3354: DRAW 299+y,350 

436 PLOT 346-y,333:DRAK 345-y,330 

437 FOR gg=1 TO 100+h 1%*20:NEXT 

438 GOSUB 445 

437 LOCATE 1,1i:PRINT CHR$ (8) 

430 GOSUBR 445 

441 NEXT 

442 PLOT 302,534:DRAW 331,334 

4453 GOSUB 448 

445 GOTO 457 

445 IF x<10 THEN x=x+1 

445 IF »>10 THEN x=x-1 

447 PEN 1:LOCATE x,„1F7:PRINT CHR$ (200) 3 CH 
R& (201) RETURN 

448 REM 

449 hi=0:hk=1 

450 LOCATE 1,4 

451 PRINT CHR$ (235; CHRE$ (1) 

452 hj=hj+lshkehk-1 

4553 IF hi>20 THEN RETURN 

454 SOUND 1,hk+45,5,12,0,0,153PLOT hj+3i 
6,200,1:DRAW hj+314,230: DRAW hk+31&6,230: 
DRAW hk+316 „200: DRAW h3+314,200 

455 gh=gh+1: IF. gh=4 THEN gheisff=ff-1 
454 GOTO 452 

457 LOEATE x „19: PRINT" "3 

458 TAGSFÜR d=40 TO 224 STEP 2:MOVE 300, 
d:FEN i:PRINT CHRS$ (200) s CHR# (201); 

457 MOVE 300,d: PRINT EHR# (200) ; CHRE# (201) 
;:NEXT 

460 MOVE: 300,d: PRINT CHR$ (2007 5 CHR$ (201) 


E 

461 TAGGFF 

462 LOCATE 1,5:PRINT CHR$ (23); CHR$1O) 
463 FÜR hj=0 TO 20 STEP 2:S0UND 1,hj+45, 
5,12,0,0,155PLOT 336-hj,200,15DRAW 336-h 
j3,230,1s PLOT 338-6j,200,0:DRAW 338-4 1,23 
0,0:PLOT 274+4hj,200,05DRAW 294+h3,230,0: 
PLOT 296+hj,200,1:DRAW 296+hj,230,1:NEXT 


464 PLOT 318,200,0:DRAW 314,230,0 
465 REM HERE RER EEE EIER HH ER HE 


Programme 


4464 REM * 
* 

4687 REM RBHBRRSHRSHHSHIHIRRHHIHRIHISIHIISAHIFIÄHNENE 
*% 

4658 SDUND 1,40+ful1,4,15,1,1 

467 IF full>36 THEN GÜSUB 354 ELSE GOTO 

472 

470 full=full+1 

471 GOTO 468 

472 level =level +1 

473 LOCATE #1,3,15:PRINT#I „level 

474 GOSUB 448 

475 d=224 

476 TAGSFOR f=0 TO 1S5:d=d+f>MOVE 300,d:P 
EN 1:PRINT CHR#& (200) s CHR (201); 

477 MOVE 300,d:PRINT CHR$ (200) ;CHR& (201) 
5=NEXT : 

478 LOCATE 5,5 

477 TAGUFF 

480 PRINT CHR$ (23) 3; CHRS$ (0) 5 

481 full=172:x=15:cv=80 

482 IF LEVEL=2 THEN L1=0.7:L2=0,8 

485 IF LEVEL=S THEN L1=0.7:12=0.7 

484 IF LEVEL=4 THEN Li=0.7:1L2=0.7:L3=0.7 
485 IF LEVEL=5 THEN Li=0.7:12=0. 7:L3=0.8 
a14=1:i4=8 s 

495 IF LEVEL=& THEN L1=0.7:L[L2=0.8:13=0.7 
487 IF level=7 THEN 11=0,.7:12=0.7:13=0.& 
488 IF level=8 THEN 11=0.7:12=0.7:13=0.7 
489 IF level=? THEN 11=0.6:12=0.6:13=0.7 
s14=1:14=7 

490 IF level=10 THEN 11=0.4:12=0.7 

471 IF level=ii1 THEN 11=0.6:12=1:13=0,.& 

472 IF level=12 THEN 11=0.7:12=0.7:13=0. 
5 

493 IF level=13 THEN 11=0.6512=0.7:13=0. 
5:14=1:14=7 

4794 IF level=14 THEN 11=0.6:12=0. 7:13=0. 
=} 

495 IF level=15 THEN 11=9.5:12=0.9:13=0. 
s:14=0 

4956 IF level=14 THEN 11=0,.4:12=0.4:13=0. 
7:14=0 

497 IF level=17 THEN 11=0.4:12=0.4:13=0. 
7:14=1:14=8 

478 IF level=18 THEN 11=0.9:12=0.4:13=0. 
5 

497 IF level=19 THEN 11=0.8:12=0.6:13=0, 
A:14=1:14=7 

500 IF level=20 THEN 11=0.3:12=0. 9513-0. 
= 


NEUE RUNDE 


„01 IF level>20 THEN 11=1/(level/i1}:12= 
1/t(level/12):15=1/(level/11} 

502 IF level=21 OR level=26 OR level=lav 
el=-30 OR level= 32 OR level= 37 THEN 14= 
1:i4=8 

s03 IF level=25 OR level=28 OR level =35 
OR level=34 OR levei=39 THEN 14=1:14=&4 
504 IF level>40 THEN 14=1:214=7 

505 SC=SCO+S0C: SCU=0 

505 SPEED INK 1,1:1NK 0,0,2&:FOR d=t TO 
1500:NEXTsS INK 0,0 


Compute mit 


507 CLS:CLS #4:G0T0 255 

508 REM Karmann EHEN NER ERENKIHN 
#* 

507 REM # TOT 

% 

s10 REM HERE HEHE HF HH NEN IKK HH TR 

%* 

Sit IF x=19 THEN x>-18 

Ssız IF x=i1 THEN x= 

513 SOUND 1,284,500,1,4,0,15:FüR hi=1 TO 
500zNEXTELOCATE x» -1,19: PRINT" ",:1F0R 
h1=1 TO 150:PLOT 140+%x#1&6,&40: DRAW 160+%x 
*16+RND#44-32 , 48+RND*80 ,RND#*4: NEXT 

514 FOR n1=1 TO 15&00:NEXT 

515 GOTO 359 

51& FRINT EHR# (23 ;CHRS$ (0) 

517 REM 

SIB REM KFRURRREERKEUHEKER EEK KKTRHHRHE HR 
2 2 


51? REM # Erklaerung 


370 REM SUNHRHENENNFERÄTEH ENTER FREE INE 


521 REM 
322 REM 

5323 REM f 

524 INK 0,0: INK 1,25 
525 MEDE 2:BÜRDER 0 

526 WINDOW 2,79,2,24 

527 PEN OsPAPER i:PRINT STRING$(78," ")5 
528 PRINT" "=:PRINT CHR$ (200) 5; EHR#CZ 
O1),;:PRINT" STAREOMMAND 
geschrieben von Winklibauer Markus 
RINT CHR$ (200) 3 CHR$& (201) 3 :PRINT" " 
527 PRINT STRING$(78," "3 

530 LOCATE 3,6:PRINT"Auf den Raumstation 
en „ Milliarden von Kilometern von der E 
rde entfernt „ ist "3; 

551 LOCATE 1,7:PRINT"eine Seuche ausgebhr 
ochen - Auf der Erde wurde ein Gegenmitt 
el entwickelt „ m 

532 LOCATE 1,8:PRINT"welches sie so schn 
ell wie moeglich zu den Raumstationen br 
ingen mussen „ um "3; 

533 LOCATE 1,9:PRINT"das Leben von viele 
n Menschen zu retten . 

4 

534 LOCATE 1,11:FRINT “Um noch rechtze 
itig die Raumstationen zu erreischen mue 
ssen sie durch. Gebiete "3; 

5355 LOCATE 1,12: PRINT "fliegen in dene 
n Gefahren auf sie lauern . Diese Gefahr 
en sind Meteriten = felder „ Minen un 
d gefaehrliche Strahlungen „. Sie haben e 
inen Schutz = ". 

536 LOCATE 1,14: PRINT "schild der sie 
vor den Metoriten schuetzt „ Bei jeder & 
ollision mit einem Metoriten wird ih 
r Schutzschild automatisch eingeschaltet 
-„ Der Schutzschild "3; 
5357 LOCATE 1,16: PRINT "bencetigt eine 
gewisse Energie „ Die Energie wird links 
durch einen Balken angezeigt .„ Sie b 
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esitzen auch eine Laserkanone „ Jeder Sc 
huss braucht widerum "z 

558 LOCATE 1,18: PRINT "Energie „ D 
iese Energie koennen sie wider auffrisch 
en in dem sie -Tanks- aufsammeln « 
Bei einer kolission mit einer Miene kann 
sie auch der Schutz = "= 
5357 LOCATE 1,20: PRINT 


t retten . 


"schild nich 


540 PEN 1:PAPER ÖO:LOECATE 1,22:PRINT " 


programme 


557 PRINT STRING$(156," "3 

558 PEN O:PAPER 1:LOCATE 55,125PRINT CHR 
$ 150% 3 CHR$ (154) 3 CHR$ (156) 

559 LOCATE 55,13: PRINT CHR$ (149) ;CHR$ (24 
2) 5 CHR$ (149) 

540 LOCATE 55,14:PRINT CHR$ (147) 5; CHR$ (15 
4) 5; CHR$ (153) 35 ‚ 

541 LOCATE 645, 125PRINT CHR$ (150) 5CHR$ (15 
4); CHR$ (156) 

562 LOCATE 65,135PRINT CHR$(149) ;CHR$ (24 
Z) 3EHR$ (149) 


XL Bitte SPACE Tas 553 LOCATE 48,13: PRINT"Links":LOCATE 70, 
te druecken >» 77 “. 13:PRINT"Rechts" 
541 LOCATE 1,1 584 LOCATE 55,14: FRINT CHR&(147) 3; CHR$ {15 
542 PRINT CHR$ (23) ; CHR£(1) 4) sCHR$ (1535) 3 


543 FOR x=32 TO 48 STEP 2 

544 IF INKEY(47)=0 THEN 548 

545 FLOT 7,%,1:DRAW 631 ,% 

546 NEXT 

547 GOTO 543 

548 PRINT CHR$ (23) 5; CHR$ (0) 

5497 FAPER 1:PEN 0 

550 LOCATE 1,5:FRINT" Die Energie die s 
ie beim Fliegen brauchen wird ihnen auch 


565 LOCATE 10,16:PRINT CHR$ (150) ;STRING$ 

(40,154) z CHR$ (156) 

566 LOCATE 10,175PRINT CHR$&(149) 3" 
SPACE ";CHR$ 

(149) 

567 LOCATE 57,17:PRINT“Feuer "3 

568 LOCATE 10,182PRINT CHR$ (147) STRING 

(40,154) 3; CHR$ (153) 

569 PEN 1:PAPER O:LOCATE 1,19sPRINT STRI 


abgezogen » ni NG$(234," "2335 
551 LOCATE 1,7:5PRINT" Ich wuen 570 LOCAFE 1,225PRINT " oxıs 
sche ihnen viel G Bitte SPACE Taste druecken 
lueck 72 "2 >» >> u! 
552 PEN 1:PAPER 0: LOCATE 1,B:FRINT STRIN 571 LOCATE 1,1 


G$(156," "35 

553 LOCATE 1,103PRINT STRING$(156," ") 

554 PAPER 1:PEN 0:LOCATE 25,10:PRINT " S 
TEUERUNG6" 


572 PRINT CHR$ (23) 5 EHRS(H) 
573 FOR x=32 TO 48 STEP 2 
574 IF INKEY(47)=0 THEN 578 
575 PLOT 7,x,11BDRAW 631,x 


553 PEN O:PAPER 1:L0CATE 1,12:PRINT STRI 376 NEXT 
NG$(234," 3:L0OCATE 3,15:PRINT "Mit Joy 577 GOTO 573 
stick oder mit:";z 578 PRINT CHR$ (22) ;CHR#& (0) 


556 FRINT STRING$ (254," 579 GOTO 138 


4 





Checksummen Teil 1: 114- 1191. 2404 184- 1850 42948 254- 259: 65312 
" 114- 117: 72833 1iB6&- 187: 4945 261- 2631 47373 
CHECK Vi: PRUEFSUMMEN: 220- 222: 38759 118- 119: 73873 188- 189: 14353 Z&4- 2u6ı 565374 
224- 226: 11118 120- 121: 51325 190- 1913100404 P&H- 269: 5967 
ZEILENNR.=z SUMMEN 228- 230: 46257 122=- 123: 89411 192- 1951 67412 270- 272: 83574 
100- 102: 23914 232- 234: 5587 124- 125: 97371 174- 195: 67974 274- 275: 34992 
104- 106: 48545 256- 236: 870% 124- 1271 97747 194- 197%: 51956 27T&- 277: 34921 
108- 110: 21715 230- 242: 32440 128- 129: 100222 198- 199: 107008 278- 279 2B264 
112- 114: B634 244= 244: 50350 150- 1511 51398 200- 201er 42794 280- 281: 51916 
11&- 1181 77444 248- 250: 19572 152- 133: 37376 zZ02- 203: 71609 z2a2- 285: 82248 
'120- 122: 394 252- . 29543102201 134- 135: 21100 204- 205: 40024 284- 285: 43303 
124- 125: 23914 256- 258: 73235 1F4- 137: 6705 206- 207: 4877 2B6- 287: 43627 
128- 130: 18182 260- 252: 107142 1389- 139: 20200 208- 209: 4835 208- 28%: 54775 
132- 1341 22444 264- 26h: 97504 140- 141: 24476 210- Z2llı 468 290- 291: 29277 
136- 430: 412 2&8- 270: 98911 142- 143: 25069 212- 21%: 1165 292- 297%: 46135 
140- 142: 31934 272" 274: 27741 144- 145:123197 214- 215: 267 294- 295: 39573 
144- 146: 41234 27&- = #75 146- 147:123633 21&- 217: 16356 294- 297: 42051 
148- 150: 38810 mn nn 148- 14931124069 218- Z19ı 24394 Z30- 299: 53261 
152- 154: 50118 ESAMTCHECKSUMME: 17963 150- 1514129528 220- 221: 34134 300- 3012 7833 
156- 158: 63136 152- 153:129984 222 2235: 26033 302- 305 99653 
154- 155: 69260 224- 225: 42150 304- 3051 55116 
au Checksumen a Zn gan 
168- 170: 69341 . 158- 159: 22248 228- 229: 759 3089- 3094 975657 
172- 1741 5495 Teil 2: 150- Adi: 19002 230- 2315 47954 $10- Zi1ile 50128 
17&6- 178: 47208 162- 165: 60894 232- 2334 28240 Z12- 313: 21248 
180- 182: 38759 CHECK 91: PRUEFSUMMEN: 164- 165: 44079 234- 235: #161 314- 315: 32450 
184- 1iB6: 85547 166- 167: 398 236- 237: 54248 Z16- 317: H5128 
188- 190: 352 ZEILENNR.t SUMMEN 168- 169: 34993 238- 239: B119% 318- 3S19: 34955 
192- 194:103494 100- 101: 29878 170- 171: 17329 240- 241: 7351 320- 321: #511 
196- 198: 2624 102- 103; 27048 172- 173: 20930 242- 2451 61787 322- 3251 38317 
200- 202: 52892 104- 105: 28240 174- 175: 41924 ZaA- 245: 28240 s24- 325: 42400 
204- 206: 38759 106- 1074 394 17&- 1771 9620 246- 247: &1401 326- 327: 4B78F 
208- 210: 798956 108- 109: 22494 178- 179: 2111 248- 249: 67711 s24- 3292 24197 
212- 214: 352 110- A111: 48377 180- 181: 3309 | 251=- 253 35558 330- 331r 46795 
21&- 2Z18: 47002 112- 113: &40B 182- 183: 23295 254- 256: 73037 352- 335: 78699 
6186 Compute mit 
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334- 335: 116492 394- 345: 54554 434- 435: 56382 aga- 4095: 48430 534- 335: 74740 
3356- 3357: 110101 IBa- 387: 337533 436- 437: 57117 436- 4972110751 SI6- 537: 46053 
SI8- 339: 22568 S88- 389) 71317 ASB- 639: 6590 488- 489: 105139 538- 5391 65220 
Z40-r 2341: 14409 570- 371: 54751 440- 441: 1184 Au Ay: 535605 540- S4il: 34742 
342- 345: 21024 392- 395: 17701 4R2- 495: Bi66 492- 493: 81444 542- 543: 18090 
344- 345: 46906 SF4- 395% 63580 a5 45: Zehb 494- 495: 45955 544- 545: 21256 
346- 347: 60651 376- 397: 68096 496- 4471 54264 496- 499: 59156 S46- 547: 5650 
348- 749: 1166 398- 379 27903 A4B- 4491 11327 498- 499: 90767 548- 549: 7425 
350- 351: 69637 400- 401: 50499 450- 451: 64650 500- 5011 74177 550- 351: 21880 
352- 353: 51541 302- 403: 12508 452- 455, 47031 502- 503: 119058 Sss2- 553: 34592 
354- 1355: 79372 s04- 4053 34998 454- ASS: 82037 504- 505: 71559 554- 555: 52313 
356- 3571 55171 406- 407: 26954 456- 457: 7387 506- 507: 52530 556- 557: 10017 
3589- 359: 17374 208- 409: 13004 458- 459: 71041 5089- 509: 53244 5S50- 559: 92479 
350- Sblı 29862 210- 41lı 4380 460- 461: 30444 510- S5ilı 41840 Sa0- 56ls 73695 
Ih2- 343: 38269 412- 415: 5373 462- 463: 44410 512- 513: 35516 S62- 543: 80890 
364- 345: 9560 414- 415: 29905 Abi- A6äı 39426 514- 515: 11702 Sh4- 585: 80435 
Sbh- 367: 67863 #i6- 4175 6255 46b- 467: 42475 sis- 517: 5555 Sab- 567: 73426 
368- 369: 37577 418- 4191 2504 468- 449: A511 Si8- 319: 48253 S68- 549: &89805 
370- 371: 98953 420- 4213 29957 470- 471: 18374 520- 521: 28240 570- 571: 7950 
372- 3735 6875 422- 425: 5347 472- 473: 41233 522- 525 394 572- 573: 18090 
374- 375: 15434 924- 4251 32169 474- 875: AQB6O 524- 525: 3725 574- 578: 21705 
376- 377ı 67415 426- 427: 14556 47&= 477: 87790 526- 527: 15688 376- 577: 640 
37B- 379: 35056 224- 429: 25092 478- 479: 706 S20- 529: 51387 578- 579: #5 
3930- 381: 47726 430-. 431; 5546 480- 481: 37856 330- 53111053409 > 
382- 383: 39217 432- 433: 92905 4892- 405: 73746 532- 533:109478 GESAMTCHECKSUMME: 55955 





Diesmal finden Sie unter der Rubrik „Werkstatt“ ein Programm, mit dem 
alle Diskettenbesitzer angesprochen werden. Gehören Sie zu diesem 
Kreis, dann sollten Sie genau aufpassen, denn hier wird etwas veröffent- 
licht, auf das Sie sicher schon lange warten und was eigentlich jeder 
User für den Umgang mit dem Schneider benötigt, 


Disksort für den GPG 464 





Mit diesem Programm kann man endlich die eigenen Disketten ord- 
nen und bis zu 651 Directory-Einträge speichern und ausdrucken. 


Gehen Sie dabei so vor: 

Starten Sie den Disk-Sort und wählen Sie 
Menue-Punkt 1. Sie werden nun nach der 
Disketten-Identifikation gefragt. Sinnvoll 
ist es, jeder Diskette eine Buchstaben- 
Nummern-Kombination zu geben, Lesen 
Sie darauf nach Anweisung die Diskette 
ein und drücken Sie eine Taste. Das Direc- 
tory wird angezeigt. Nun entsteht eine 
kurze Wartezeit, in der es aus dem Spei- 


erscheint wieder das Menue. Laden Sie 
nun so viele Directorys wie sie möchten. 


Sie können dann durch Menue-Punkt3al- 


phabetisch sortiert werden, Leider kann 
es hier passieren, daß sich der GP zu ei- 
ner Garbage Collection (sprich: Müllab- 
fuhr) verabschiedet. Das kann unter Um- 
ständen eine Zeitlang dauern und ist lei- 
der nicht zu umgehen. 

Mit Menue-Punkt 4 kommen Sie in den 


mente angezeigt, das aktuelle in selber 


"Schrift. Mit den <Cursor-Up->> und <Cur- 


sor-Down-> Tasten kann gescrollt werden. 
Mit <COPY>> kann das aktuelle Element 
in den Speicher gelesen werden, Mit 
<DEL>-kann das aktuelle Element ge- 
löscht werden. Mit<CLR> oder <CTRL> 
P kann das Element im Speicher an aktu- 
eiler Stelle eingefügt werden. Und mit der 
Taste kann der gesamte Speicher von 


cher in das Feld b$ eingelesen wird. Dann | Editier-Modus. Es werden jeweils 5 Ele- | Hand eingegeben werden. Ferner stehen 
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- folgende Tastenfunktionen zur Verfügung: 
| Bei <CTRL> <Cursor up> wird an den 
Anfang , mit <CTRL> <Cursor down> 
' an das Ende gesprungen. Drücken Sie 


| <CTAL> <Cursor right>, werden Sie 
| nach einem Namen und Typ gefragt. Das 





- Programm springt dann zu dieser Stelle. 


Mit dem EDIT-Modus können Sie also zu- 
sammengehörende Teile entgegen der al- 
phabetischen Sortierung, zusammenstel- 
ten. Den EDIT-Modus können Sie mit 
<ENTER> verlassen, 

Bei den Punkten 6 und 7 werden Sie je- 
weils nach dem Dateinamen gefragt. Als 


werkstatt 


Typ wird immer ein ‚SAT angehängt. Mit 
Punkt 2 kann alles gelöscht werden. 

Mit Punkt 5 wird alles in 2 Spalten ausge- 
druckt. Sie können auch eine Überschrift 
eingeben, die zentriert ausgegeben wird. 
Mit Punkt 0 beenden Sie den Disk-Sort. 





Variablenliste: 
a6 (0-65) - Dateinamen für ein Directory e$ - Name der eingelegten Diskette/ 
I (0-65) - Dateilängen für ein Directory Dateiname zum Saven + Laden 
b$ (0-650) - alle eingelesenen Dateinamen k,hi  — Schleifen 
 K (0-650) - alle eingelesenen Dateilängen np,lrrijds$ -  Hilfsvariablen für Quicksort 
d$ (0-650) -  Diskettennamen für jede Datei sp$,sd$,sk - Dateiname, Länge + Diskette im Speicher 
s (0-99) - Hilfsfeld für Quicksort y - _ y-Koordinate im Editiermodus 
r - Anzahl der Dateinamen eid,e2$ - _ Hilfsvariablen 
a$,a,c$ -  Tastatur-Abfrage 55,5,5$ -  Hilfsvariablen zur Menuedarstellung 
Programmteilbeschreibung 
- D- 340 : Initialisierung 
350- 610 : Menue 
1000 - 1060 : Ende des Disksortes 5000 - 5520 Editiermodus 
I 2000-2180 : Das Directory wird geladen und in a$ und b$ abgelegt 6000 - 6370 : Ausgabe auf Drucker 
3000 - 3030 :; Löschen des Buffers, indem r=0 gesetzt wird 7000 - 8080 Abspeichern + Laden 
4000 - 4230 : Alphabetischer Quicksort 9000 - 9100 Editiermodus (Fortsetzung) 
In Zeile 2030 können Steuerzeichen vor dem Ausdruck an den Drucker geschickt werden. 
100 ° Z% ISK-SORT v.»" 
EHPSLLLLLLLALLLEALLTELHNH NT AA Te 360 PEN 1:PRINT:PRINT" Menue 3 
110'% % PRINT" en 
BI 120’ % DISK-SORT (C) 1985 % 370 PEN 2 
BI 4130 * x by + + | 380 RESTORE 390:FOR gg=1 TO B:READ g:RE 
148° 4 JeBaSoft Utilities % | D g$:LOCATE 7,9:PRINT g$:NEXT gg 
150° X % 370 DATA 7,"Directory laden” 
160 ' % von Jens Barth am 18.8.1985 % 400 DATA 9,"Alles loeschen" 
707% % 410 DATA il,"Alphabetisch sortieren 
180° % v4.3 % 420 DATA 13, "Editieren" 
170° % % 430 DATA 16,"Liste ausdrucken" 
| 200 * 72772EIRASHLLALLLSALLLLLLLLSTLLH 440 DATA 18, "Daten abspeichern" 
| 210 : 450 DATA 20,"Daten laden" 
220 : ö ä 460 DATA 23,"Ende des Disk-Sort" 
230 SYMBOL 240,31,31,30,30,30,31,30,28 470 PEN 3 
>40 SYMBOL 241,248,248,120,120,120,248,1 | 480 RESTORE 390:FOR gg=1 TO 7:READ g:REA 


20,56 D g$:LOCATE 3,g:PRINT gg:NEXT gg 


| 250 SYMBOL 242,30,31,16,16,18,31,0,0 AFO READ g:LOCATE 3,95FRINT © 
1 260 SYMBOL 243,120,248,8,8,8,248,0,0 500 PEN 2 
270 CALL &BCO2:MDDE 1 540 PRINT EHR$ (7) 
| 280 PRINT"Disk-Sort V1.5":PRINT CHR$(164 570 ag="" 
)" JeBaSoft Utilities '85" 580 WHILE a$<"0" GR a$>"7"2a%=INKEY$:WEN 
290 ON BREAK 6G0SUB 350 D 
| 300 KEY 140,CHR$ (13)+"goto 350"+CHR$(13) 590 a=VAL (a$) 
| 310 OPENOUT"dum" : MEMORY HIMEM-1:CLOSEQUT | 600 ON a+i GOSUB 1000,2000,5000,4000,500 
| 320 DEFINT 1,k 0,4000 , 7000 , 8000 
330 DIM a$(65) ‚1 (65) ,b$ (650) ,k (650) „d$(6 | 610 GOTO 350 - 
50) ,5(797) 10006 " Ende des Disc-$ert 
340 r=0 1910 MODE 2:PEN 1 
350 CALL &BCO2:MODE 1:PEN 1:FRINT" D 1020 PRINT" Mit 
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£CTRL> und der kleinen 


1030 PRINT" <SENTE 
R> Taste koennen Sie den 

1049 PRINT" Diskso 
rt wieder starten ohne die 

10550 PRINT" 


Daten zu verlieren. 

1040 PRINT=SEND 

2000 ” Directory laden 

2010 MODE i:LINE. INPUT"Identifikation de 

r Diskette imax.3 Zeichen) : 
"set: IF LEN(e#)>3 THEN 2010 

2020 IF LEN(e$)<3 THEN e#=e$+" ":60T0 20 

2Q 

2030 PRINT=:PRINT:PEN SıPRINT CHR£ 2407 CH 

R# (241) PRINT CHR$ (242) CHR$ (243) CHR$ (15} 
CHR$ (LICHR$SCT)I" einlegen und Taste druec 
ken “.,"ıCÄALL &BBOA 

2540 FOR i=0 TO 63:38 (i)=STRINGS(11," ") 
:NEXT 

2050 CAT 

2060 anz=PEEK (&A912) 3 a=PEEK (&A7FCI R2FHHF 

EEK (&A79B) #1 

2070 FOR i=0 TOD anz 

20980 1ti)=PEEKtat11) 

2090 FOKE @asti)+1,a- (INT (a/256) #258) 

2104 FOKE @a$ti)+?, INT (a/256) :a>ar14 

2119 NEXT i 

2120 FOR i=0 TO anz | 

2130 IF ASC(LEFT$(a$(i),1))=0 THEN amisi 

sanz;sSoTo 2150 

2140 asti)=LEFTF(asti) „BI +". "+RIGHTF(a$( 
i),3) 

2150 NEXTsanz=a-1 

2160 FOR i=r TO r+tanz:b#(i)=aFfti-r)ıkli) 

=1ti-r)2dsti)=e$sNEXT 

2170 r=i 

2180 RETURN 

3000 * Laeschen 

3020 r=0 

3050 RETURN 

4000 * Alphabetisch sortieren 

4010 LGEATE 7,11:FEN 2:PRINT CHREZA)"AI 

phabetisch sortieren"CHR$ (24) 

4020 n=rip=1:s{t1l)=0;8 (2) =-n 

4030 1=s{p)arr=stp+tl) 

4040 p=p-2 

4050 i-l:j-rr 

4060 d=(1+trm)/2 

4070 g$=b${d) 

4080 IF b$ti)>=g$ THEN 4110 

2090 i=i+t1 

4100 GOTO 4180 

4110 IF b${j)<=g#% THEN 4140 

4120 3=-i-l 

4130 G0TO 4150 

4140 IF i>j THEN 41&0 

4150 h$=b$ (i) ıb$ ti )=b# (5) 1b$ (3) Sh$:h$ad$ 
ti)edsli)edstsj)adseljI=ehsshektidıkli)eklj 
I)sktj)=shri=mitrisjsj- 

4160 IF i<Z=j THEN 4080 

4170 IF i>=rr THEN 4190 

4180 p=p+2:s{p}=i:s(p+l)=rr 
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4190 rr=j 

4200 IF l<Xrr THEN 4050 

4210 IF p2>-1 THEN 4030 

4220 FOR i=1 TO r:b£&ti-1)=b$ti)ekti-l)=k 
G)adsli-1I)=dsti)sNEXTebF (Pr I=""erer-1 
4230 RETURN 

5000 '" Editieren 

5010 MODE 1:PRINT" }EDIT<" 

5020 WINDOW#1,2,20,7,15:WINDOW#2,20,40,1 
5,15: PEN#2,25 LOCATE 3,5:FEN 3:PRINT" E 
lemente"sLOCcATE 235,135 PRINT"Speicher"” 
5030 FEN 1:LOCATE 1,65PRINT CHR$ (150) STR 
ING$ (19,154) CHR$ (156) = LOCATE 1,16;PRINT 
CHR$ (1A) STRINGS (39, 154) CHR$ (153) ı LOCATE 
21,14:PRINT CHR$ 1147) STRING$ (18,154) CHR 
$(156} 

5040 FOR i=7 TO 15:L0CATE 1,i:PRINT CHR$ 
149) sLOCATE 21,i:PRINT CHR$ (149) :=NEXT:L 
OCATE 21,14: PRINT CHR$ (155) 2LOCATE 21,15 
sPRINT" "sLOCATE 40,15:PRINT CHR$(149) :L 
SCATE 18,16:PRINT CHR# (1553: LOCATE 18,15 
:PRINT CHRF{149) 2L0CATE 18,14 

5059 PRINT CHRF$(ISOISTRING$ 12,154) 

5040 PEN#1,2 

5070 p=0:5p$="":5d$="":sk=0 

5090 y=3:FOR i=p-2 TO p+2 


' 5090 IF i<O OR i>r-1 THEN LOCATEHL,1,y:P 


RINT#1," = "26070 5120 

5100 IF y=5 THEN LOCATE#1 ,1,y:PEN#1,1:FR 
INT#1,b# ti) 3 USING" ## ")skti);sPRINTHL, 

d&#(i)2PEN#1,2:60T0 5126 

5110 LOCATE#1 ,1,y:PRINT#1 ,b$ Li) 3 USING" 

## '")skti);sPRINTEI,d#(i) 

5120 y=y+1:NEXT i 

5130 IF sp$=""THEN S150 

5140 LOCATE#2,1,1:PRINT#2,sp#;USINGe" ## 
"Yaskz »PRINT#2,sd$; 

5150 e$s=INKEY$: IF eF=CHR$ (240) THEN IF p> 

© THEN p=p-£2560T0 5080 

5160 IF e$=CHR$ (241) THEN IF pir-1 THEN p 

=p+1:G0T0 5080 

5170 IF e#=CHR$(224) THEN sp$=b#tip):isk=k 
ip)esd$=dFip):GOTO SOBO 

5180 IF e#=CHR$(127) THEN 3300 

51970 IF e$=CHR$(14) THEN 53520 

S700 IF e#="""THEN GOSUB 5400 

5210 IF e$=CHR$(13)THEN RETURN 

5220 IF es=CHR$ (251) THEN GOSUB 9000: GOT 

0 5080 

5230 IF e$=CHR$1248} THEN p=0:60T0 5080 

52409 IF e$=CHR#(249) THEN p=er-1:G0T0 508 


[#) 

5250 GGTO 5150 

5500 ° Element loeschen 

5310 FÜR i=p+1 TO r:sb$ti-1)=bFli)ıkti-l) 
kti)sdstti-1)=d$li) :NEXTebF (7 )=""erer-ia 
GOTO 5080 

535206 ° Element einfuegen 

5320 FOR i=r TO p STEP-1:b$ti+1)=b#(i):k 
(i+1)=kli)aedstirt)edkli)sNEXTer=Sr+1:b#$ip 
)=sp$:kip)=skeds (p)=sdFa6DTO S080 

5400 ° Speicher eingeben 

5410 LOCATE 17,18: INPUT"Name"jeif: If LEN 
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-; 


r 


| ceıs)>8 THEN 5410 
5420 LOCATE 17,19: INPUT"Typ ";e2$:1IF LEN 
| te2$)>3 THEN 5420 
‚5430 IF LENtei$)<8 THEN ei$=el$+" "+GOTO 
1 5430 
| 5440 IF LEN(e2$)<3 THEN e2$=e2$+" ":BDTO 
5440 
5450 ei1$=UPPER$ (e1$) 1e2$=UPPER$ (e2#) 
5450 sp$=el$+"."te2$ 
5470 LOCATE 17,20:LINE INPUT"Disk? "sei$ 
\zIF LEN(ei$)>3 THEN 5470 
"5480 IF LEN(e1$)<3 THEN ei$=" "+ei$:60T0 
5480 
5490 sd$=ei$ 
5500 LOCATE 17,21: 1NPUT "Len. "jessk=e 
| 5510 WINDOW#S, 16,40,19, 24: CL5#3 
“i 5520 GOTO 5140 
I 6000 ' Ausdrucken 
| so1o MODE 1:PRINT" »Liste ausdrucken 
I 6020 PRINT:PRINT"Drucker bereitmachen"sPF 
I EN i:PRINT"dann Taste druecken":CALL %&BB 
1.08 
| 6040 PRINT#B,” DIS 
| «sort v1.3 (0) 1985 by JeBaSoft" 
1 6050 PRINT#8:PRINT#8 
| 2060 PRINTIPRINT"Namen ueber der Liste : 
 ":LOCATE 1,8:LINE INPUT e$ 
6070 e$=STRING$ (40-LEN (e$) /2,32) +e$: PRIN 


' T#8, es 
Mi 6080 PRINT#8:PRINT#8:PRINT#8,5TRING$ (80, 
3 —") 
4 4090 PRINT#8," Name Typ Disc Lae 
Inge Name Typ 
| 


‚Disc Laenge" 

| 6100 PRINTEB "4-4 4 4 
nit nn 4 nt 
a Ei 

.s110 FOR i=0 TO INT(r/2) 


Izkti+INTfir/2)3+1) 

sia0 NEXT i 

6170 FRINT#8,CHR$ (12) 2 RETURN 

7009 * Abspeichern 

70106 MGDE 1:PRINT" >Daten abspeichern? 
"sPRINTSPRINT"Name des Datenfiles ?”:PRI 
NT:INPUT es: IF LEN(e$)>8 THEN 7010 

7020 e$s=e$+".SRT” 

7030 PRINT=:PRINT:EPEN 3:sPRINT CHR$ (240) CH 
R$(241) PRINT CHR$ (242) CHR$ (243) CHR$ (159) 
CHR$(1)CHR$(7)" einlegen und Taste druec 
ken „.»„"ıCALL &BBO& 

7040 OPENOUT e$ 

7050 WRITE #9, r 

7060 FOR i=0 TO rıWRITE #9,b$(i),kti),d$ 
(i) 

7070 NEXT i:CLOSEDUT 

7080 RETURN 

8000 ° Laden 

8010 MODE 1:PRINT” Daten laden<"=PRIN 
T3PRINT"Name des Datenfiles ?7"sPRINT: INP 
UT e$:IF LEN{te$)>9 THEN 8010 

8020 ef-e#t+" ,SRT" 

8030 FRINT+FRINTIPEN 3:PRINT CHRE(240)CH 
RSCZA1I)SFRINT CHR$ (242) CHR$ (77 73) CHR$ (15) 
EHR$SLA)ICHRE(7I” eini=gen und Taste druec 
ken „..":CALL &BBOA 

8040 OPENIN e$ 

80509 INPUT #9,r 

8960 FOR i=O0 TOD rsINPUT #9,b$li),Kti),d$ 
(ti) 

8070 NEXT i:>CLOSEIN 


- 8080 RETURN 


9000 ° Sprung an bestimmte Stelle 

23010 LOCATE Dr Lu Name Teer tr LEN 
tei#})>8 THEN 9010 

9020 LOCATE 17,17: INPUT”Typ "se2$:1IF LEN 
(e2#)>3 THEN 9020 

39330 IF LEN{iel$)<B8 THEN eis=els+" ":650T0 





8120 PRINT#8," "LEFT$(b$(i),8)" "RIGHT 9030 
S$0b$ti), dd" "dsti)zsPRINTHB," "USING 9040 IF LEN(te2$)<3 THEN e2$=e2$+" ":G60T0 
It KO)skti)z 90409 


| 6130 PRINT#8,STRING$ (21,32); 
6140 IF b$(i+INT(r/2)+1)=""OR i+INT(r/2 
+1>r THEN PRINT#8:G0T0 6160 
6150 PRINT#8," "LEFTS(b$(i+INT(r/2)+1), 
I.,8" "RIGHTS(bSti#INTIr/DIH1),5)" nase 
1 3#1NT(r/2)+1)5:PRINT#B," "USINGC"HHRR KK". 


2050 ei$=UPFER$ (e1$) ve2$=UPPER$ (e2$) 
9060 e$=zel$+". "te2$ 

9070 FOR i=0 TO r-i 

2080 IF b#(i)=e$ THEN FP=i:6G0T0 910% 
90970 NEXT i:PRINT CHR$(7) 

7100 WINDOW#3,16&,40,18,24:CL5#3: RETURN 





 CHECK v1: PRUEFSUMMEN: 440- 450: 40926 3020- 305303 2441 5140- 51501104109 &120- 61301 24848 

460- 470: 26869 4000- 40105 4757%7 5160- 5170: 95942 6140- 6150: 59751 

ZEILENNR.z SUMMEN 490- 490: 56422 4020- 4030: 101895 5190- 5190: 30370 &160- 170r 4594 

|  106- 1105 25301 500- 560: 1456 40409- 4050: 25590 5200- 5210: 20776 7000- 70105 21440 

2 ' 4120- 130: 28203 570- 580: 48589 4060- 4070: 27190 5220- 5230: 62766 7020- 70304 21500 

140- 150: 46298 590- 600: 59378 A0B0- 4090: 24745 5240- 5250: 49763 7040- 70501 4455 

1&0- 170: 38711 &10- 1000: 21071 4100- 4110: 19121 5300- 5310: 4527& F7OAr- 70705 20894 

180- 190: 7808 1010- 1020: 25710 4120- 41301 7527 5320- 53301 84852 7050- 8000: 3562 

200- 210: 23474 1030- 1040: 90810 4140- 4150: 30507 5400- 5410: 73658 \ BOLO- 8020: 44741 

220- 230: 14182 1050- 1060: 7388 41&60- 41703 24773 5420- 5430: 94567 8030- 8040: 11475 

’ 240- 250: 41559 2000- 2010: 31718 4180- 41901 24902 5440- 5450: 79982 8050- 80540: 2009& 

L* 260- 270: 19050 2020- 2030: 50053 4200- 4210: 26458 5460- 5470: 255642 8070- 80890: 2909 

x 280- 290: 36715 2040- 2050: 48155 4220- 42301 21297 5400- 5490: 55494 9000=- 9010: 997515 

23 300- F10: 44391 2060- 2070: 34787 5000- 5010: 14148 5500- 5510: 44906 3020- 7030: 106572 

.ı.320- 330: 28682 2080- 2090: 76405 5020- 5030: 108361 5520- 5000: 9754 27040- 9050: 46724 

.) 340- 350: 45617 2100- 2110: 66272 5040- 5050: 47524 6010- 6020; 45452 | 7040- 9070: S1R65 

\ | ı  340- 370: 40936 2120- 2130: 56158 5040- 50703 43695 _ 6040 6050: 44143 70830- 7090: 535930 

1 390- 390: 59943 2140- 2150: 32482 5080- 5090; 54724 6060- 6070: 118847 F109- » 11371 
; 400- 410: 58591 21&0- 2170: 19751 S5100- S110: 55532 &080- &090: 47778 url _ nn 
..420- 430: 36977 2180- 3000: &804 S120- 51304 21550 6100- #110: 55344 GESAMTCHECKSUNME: 31542 
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